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1. 



ABSTRACT 



The function of the DMCU diagnostics is to verify that the 
option operates according to specifications* The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the DMCU are correct m its environment . 

Parameters must be set up to alert the diagnostics to the 
UMCll configuration. These Parameters are contained in the 
status table and are generated in two "ays: i) Manual 
Input - the operator answers questions. 2) Autoslzing - the 
program determines the parameters eiutomatlcally. 

d £dmg tests the DMCll-AR and DMCH-AL B-.lcro-processors 
lM820tf-YA M8200-*B). It performs jump tests on the 
micro-processor and verifies the control ROM of the M8200. 
This diagnostic *ill not run on *. KMC (M8204), ho*fcv«r it is 
possible to load the KMC CRAM with the DMC micro-code. See 
test 2 for details. 

Currently tnera are five oft line diagnostics that are to be 
run in sequence to Insure that if an error should occur it 
will be detected at an early stage. 

note: Additional diagnostics may be added in the future. 
The five diagnostics are: 

t. dzdmc ihevj Basic w/R and Micro-processor tests 

2. dzdme ihevj ddcmp Line unit tests 

3. DZDMF [REVJ BITSTUFF Line unit tests 

4. DZDMG [REVJ Ju m p and CRUM tests 

5. dzdmh [REVJ Free-running tests (heat test tape) 



Any PoPll family CPU (except an lSi-11) with minimum 8K memory 
ASR 31 (or equinvalent) 

DMCU-AR (MH200-YA) or a n DMC1J.-AL (M8200-KB) 



2. 



REQUIREMENTS 



2.1 



EQUIPMENT 
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2.2 STORAGE 

Program will use all 8K of memory except where ABL and 
BOOTSTRAP loader reside. Locations 1500 thru 1640; contain 
the "status TABLE" information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(auto-sizing). This area is an overlay area and should not be 
altered by tne operator. 

3. LOADING, PBOCEEDURE 

3.1 METHOD 

All programs are in absolute format and are loaded using the 
ABSOLUTE loader. NOTE: if the diagnostics are on a media such 
as disk $ m AG tape, DEC TAPE # or CASSETTE; follow instructions 
for the monitor *hicn has oeen provided on that specific 
media. 

ABSOLUTE LOADER starting address #500 

MEMORY # SIZE 

4K 1 7 

8k 37 

12k 57 

16k 77 

20k 117 

24k 137 

28k 157 



3.1.1 Place address of ABS loader into switch register. 

(also place 'HALT* sw up) 

3.1.2 Depress 'LOAD ADDRESS' Key on console and release. 

3.1.3 Depress 'start key' on console and release (program Should now 
be loading into CPU) 
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STARTING FROCEEDUFE 

a. Set switch register to 000200 

b. Depress 'load address' Key and release 

c. Set swp to zero for 'AUTO SIZING* or SwR Dittf=i f r manual 
input (questions) or SwK t>it7sj to use existing parameters 
set up by a previous start or a previously run DMC11 
diagnostic, 

d. Depress 'START KEY* and release. The program will type 
Maindec Name and program nanie (if this was the first start 
up of the program) and also the following: 

MAP OF DMC11 STATUS 



PC CSR STAT1 STAT2 STAT3 



001500 160010 145310 177777 0004100 
00151.) 160020 145320 1 77777 000000 

The program will type 'P' and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
table starting at add. 1500 in the program, in this example 
the table contains the Information and status of two DMCli'S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
IS DONE, For information of status table see section 8.4 for 
help, 

if the diagnostic was started with SW00*i indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 

HOW MANY DMCJl'S TO BF TESTED?1 

CSR ADbRESS?160fcl0 

VECTOR ADURtSS?310 

bR PFIORITX LEVEL? (4,5,6,7)75 

DOES MICRO-PROCESSOR HAVE CRAM? ( Y OR N)N 

WHICH LINfc UNIT? IF NONE TYPE "N", IF Mg201 1YPE "1", IF 
M8202 TYPE 

IS THE LOOP BACK CONNECTOR Om?Y 
SWITCH PACIl (DDCMP LINE#)?377 
SWITCH PAC#2 (BM873 BOOT ADD)?3/7 

Following the questions the status map is printed out as 
described aoove, the information in the map reflects the 
answers to me questions. If the diagnostic was started with 
Sw00s0 and Sw07=0 ( AUTO-siZiNG) then no questions are asKed 
and only the status-map is printed out. If AUTO-SIZING is 
usei the status information must oe verified to be correct 
(match tne nardwarej. If it does not match the hardware the 
aiagnostic must be restarted with s*00=l and the questions 
answered. 
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4.1 CONTROL SWITCH SETTINGS 



sw 


15 


Set J 


Halt on error 




sw 


14 


Set: 


Loop on current test 




sw 


1 3 


Set: 


Inhibit error print out 




sw 


12 


Set: 


Inhibit type out/abell on error. 




sw 


11 


Set: 


Inhibit Iterations. (quick pass) 




sw 


lid 


Set: 


Escape to next test on error 




sw 


09 


Set: 


Loop with current data 




sw 


08 


set: 


Catch error and loop on it 




sw 


07 


Set : 


Use previous status table. 




SW 


36 


se t : 


Halt In romclk routine before 


clocking 








micro-processor 




sw 


05 


Set: 


deserved 




sw 


04 


Set: 


Reserved 




SW 


03 


Set : 


Reselect dmCII's desired active 




SW 


02 


Set : 


Lock on selected test 




sw 


01 


Set : 


Restart program at selected test 




sw 


00 


Set: 


Build new status taole from questions. 


(If SW07x0 



and SW00x0 a 
auto-sizing) 



new status table is built by 



Switch 06 and 08-15 are dynamic and can be changed as needed 
while the diagnostic is runnings Switches 00-03 and switch 07 
are static, and are used only on starting or restarting the 
diagnostic. 



Page 6 



4.1.2 SWITCH REGIS IER OPTIONS (at Start Up) 

SW 01 Rt ST APT PROGRAM AT SELECTED TEST, It is Strongly 
suggested that at least one pass has been made before 
trying to select a test* the reason being is tnat tne 
program has to clear areas and set up parameters, 
when this switch is used the diagnostic will as* TEST 
no.? Answer by typing the numter of the test desired 
and carrlge return to begin execution at the selected 
test. 



SW 02 LOCK ON SELECTED TEST. This switch when used with 
swtfl will cause the program to constantly loop on the 
selected test. Hitting any key on the console will 
let it advance to the next test and loop until a Key 
is hit again. If SW02=0 when SW01 is used. The 
program will begin at the selected test and continue 
normal operations. 

Sw 03 RESfcLECT DMCll'S desireu ACTIVE, Please note that a 
message is typed out tor setting the switch register 
equal to DMCil's active, this means If the system has 
four DMCUs; bits 00,01,02,03 will be set in loc 
'umactv' from the switch register. using this 
s«itch(SW00) alters that location; theref ore if four 
DMCUs are in the system ###do not*** set switchs 
greater than SW 03 in the up position, this would be 
a fatal error, do not select more active DMCUs than 
there is information on in the status table. 



METHOD: At Load address 200 

B: start with sw 00=1 

C: Program will type message 

D: Set a switch for each dmC desired active. 

example: If you have 4 LMC's but only want to 
run the first and the last set shF bits and 

3=1. PRESS CONTINUE 
E; Number (If VALID)' will be in data lights 

(excluding 11/05) 
F: Set with any otner switch settings desired. 

PRESS CONTINUE. 



PACE: 0006 
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4.1.3 DYNAMIC SWITCHES 



ERROR SWITCHES 



1. sw 12 Delete print out/bell on error. 

2. sw 13 Delete error printout. 

3. sw 15 Halt on the error. 

4. sw k) 8 Goto beginning of the testCon error). 

5. sw 10 Goto next test(on error). 



SCOPE SWITCHES 



1. SW06 Halt In KOMCLK routine before clocking 

micro-processor instruction. This allows the 
operator to scope a micro-processor Instruction in 
the static state before it is clocked. Hit 
continue to resume running. 

2. SW09 (if enabled by 'SCOPl') on an error; If an *#* is 

printed in front ot the test no. (ex. *TEST nu. 
10 ) SW09 is incorporated in that test and 
therefore SW09 is usually the best switch for the 

SCOpe loop (5W14s0, SW10S0, SW09&1, SW08=0). If 

SW09 is not enabeiedj and there is a HARD error 

(constant); SW08 is best. (SWi4sl,0, SW10=0, 

SW»9=?, Sw08si). for intermittemt errors. swi4si 

will loop on test reguardless of error or not 
error. (swi4*l, swi0=0, sw09=0, sw08=i,0) 

3. swlt Inhibit interations . 

4. swi4 Loop on current test. 



4.2 STARTING ADDRESS 



Starting address is at 000200 there are no other starting 
addresses for the DMC11 diagnostics, (see section 4.0) 

NOTE: if address 000042 is non-zero the program assumes it 
is under ACTH or XXDP control and will act 
accordingly after an available Dili's ere tested the 
program will return to 'XXDp* or 'ACT-li'. 



5. OPERATING PROCEDURE 



when program is initially started messages as described in 
section 4,0 #111 be printed, and program will begin running 
the diagnostic 
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5.2 PROGRAM AND/OR OPERATOR ACTION 

The typica.l approach should be 

1. Halt on error (via sw lb = i) when ever an error occurs. 

2. Clear Sw 15. 

J. Set sw 14: (loop on this test) 

4. set sw 13: (inhibit error print out) 

The TEST number and PC will be typed out and posslbily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem, if it is necessary 
to kno* more information concerning the error report; look in 
the listing for that test number which was typed out and then 

NOTE THE PC Of th£ ERROR REPORT this way the EXACT FUNCTION Of 

the test CAN be determined. 

6. ERRORS 

as described previously there will always be a test number and 
PC typed out at the time of an error (providing sw 13=0 and sw 
12*3), in most cases additional information will be supplied 
in the the error message to give the operator an indication of 
the error, 

6.2 ERROR RECOVER/. 

If for some reason the DMCll should 'HANG the BUS' (gain 
control of bus so that console manual functions are inhibited) 
an lnit or power down/up is necessary for operator to regain 
control of cpu. If this should happen; look in location 
'tstno' (address l226)for the number of the test that was 
running at the time of the catastrophic error, in this way 
the operator will have an idea as to what the DMCll was doing 
at the time of the error. 

7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this listing along with 
tne information printed on the TTY to completly isolate 
problems . 
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7.2 OPERATING F tSTRICTIONS 

Tne first time a DfcCll diagnostic Is loaded into core and run 
the STATUS table must be set up. This is done by manual input 
(SW00=l) or by autosizing (swtfwstf and Sfc07=0). Thereafter 
however the status table need not be setup by subsequent 
restarts or even loading the next DMC diagnostic because tne 
STATUS table is overlayed. The current parameters in the 
STATUS TABLE are used when sw«7=l on start up. 

7.3 HARDWARE CONFIGURATION RESTRICTIONS 

DMCU (MI32I60J- jumper w 1 must be in, and switch 7 of E76 must 
be in tne OFF position. 

kmc C M8 204 J • jumper wi must be in. 

8. Ml SCELLANEOUS 

8.1 EXECUTION TIME 

All OmCI! device diagnostics will give an 'End PASS' message 
(providing no errors and swi2*0) within 4 mins. This is 
assuming swu = i (DELETE ITERATIONS) is set to give the fastest 
possible execution. The actual execution time depends greatly 
on the PDPll CPU configuration and the amount of memory in the 
system, 

8.2 PASS COMPLETE 

NOTE j liVERX time the program i» started; the tests win run 
as if swlt (delete iterations) was up (=1). This Is to 
•VERIFY no hard errors' as soon as possible." Therefore the 

first pass -EACH TIME PROGRAM IS STARTED- Will be a 'QUICK 

pass* until all DMCll's in system are tested, when the 
diagnostic has completed a Pass the following is an example of 
the print out to be expected, 

END PASS DZDMG CSR* 175000 VEC: 0300 PASSES t 020001 
ERRORS: 00id^00 

NOTE ; The pass count and error counts are cummulitive for 
each DMCU that is running, and are set to zero only 
*nen the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMCll since the diagnostic was started are 
reflected in passes: and Errors:. 
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8.4 KLi LOCATIONS 

RETURN (1214) 

NEXT (121b) 
TSTNO (1226) 
BUN (131b) 



Contains the address where program will return 
when Iteration count is reached or if loop on 
test is asserted. 

Contains the address of the next test to be 
pef ormed. 

Contains the number of the test no* being 
pef ormed , 

The bit in 'RUN* always points to the DMCll 
currently being tested. EXAMPLE: (fun) 
1302/0000000001000000 Means that DMCU no. 06 
is the DMCll no* running. 



DMCR00-DMCK17 
DMST00-DMSTI 7 
(1500)-(lb40) 



These locations contain the information needed 
to test up to 16 (decimal) OMClls sequentlaly. 
they contain the CSF, VECTOR and STATUS 
concerning the configuration of each DMCll. 



DMACTV (U06) Each bit set in this location indicates that 
the associated DMCll will be tested in turn. 
EXAMPLE: (DMACTV) 1276/0000000000011111 means 
that OMCll no. 00, 01,02, 03,04 will be tested, 
EXAMPLE: (DMACTV) 1276/0000000000010001 Means 
that DMCll no. 00,04 will be tested. 

DmCSR (14<J4) Contains the CSR of the current DmCII under 
test. 



8.4A 'STATUS TABLE' (150^-1640) 



The table is filled by auto SiZinG or by the manual parameter 
input (questions) as descrioed Previously, Also if desired by 
user; the locations may be altered by hand (to9<3led in) to 
suit the specific configuration. 



The example status map shown below contains information for 
two DmCII 'S, the table can contain up to 16 DmCU'S. 
Following tne map is a description of the bits for each roaP 
entry 



*AP OF DMCU STATUS 



PC CSR STAT1 STAT2 STAT3 

0*1500 lb^010 14531^ 177777 000000 
160020 *)1632«3 0000&O 000000 
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Eacn map entry contains 4 woros which contain the status 
information for 1 omch. The pc snows where in core memory 
the first of the 4 words is. J.n the example above the first 
OMCS status is in locations, lb00, 1502, 15to4, and 1506, The 
second dmc status is located at '1510, 1512, 1514, and 1516. 
The information contained in eacn 4 word entry Is defined as 
follow:!} 

CSRj Contains dmCH CSP address 

STATU BITS 00-08 IS D'tCll VECTOR ADDRESS 
B1T15=1 MICRO-PROCESSOR HAS CRAM 
B1T15=0 MICRO -PROCESSOR HAS CROM 
BlTt4=i TURNAROUND CONNECTOR IS OH 
Bil l 4 = NO TURNAROUND CONNECTOR 
B1T13S0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
B1T12=1 NO LINE UNIT 

BITS 09-11 IS DMCU BR PRIORITY LEVEL 

STAT2 : LOW BYTE IS SWITCH PAC#1 (DDCMp LINE NUMBER) 
HIGH BYTE IS SWITCH PAC*2 (BM873 BOOT ADD) 

STAT3: B1T0=1 PERFORM F REE RUNNING TESTS ON KMC 
BIT1=0 DMCll-AR (LOW SPEED) 
BITlsl DMCll-AL (HIGH SPEED) 
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8.5 METHOD OF AUTO SIZING 

8.5.1 UNOING THE CONTROL STATUS REGISTER „ 

The auto-sizing routine finds a DmCH as follows: It starts 
at address I600»fc' and tests all address In increments of 10 up 
to and Including address 16/760. If; the address does not time 
out, the following Is done, the first CPOM address is written 
to a 125252 then it is read Dae*, if it contains a -1 or 
125252 or 626 or 16520 a UMGll or KMC11 has been found, if 
not, the address is updated by 10 and the search continues, a 
-1 indicates a D*CH with no CK0M, a 125252 Indicates a KMCll 
with CRAM, a 626 indicates a DMC11-AL, and a 16b20 indicates a 
DMCU-AL. Further tests are performed at this point to 
determine which line unit, if any, is Installed, if a 
loop«bacic connector is installed and various switch settings 
on the line unit. THIS IS whx the SIATUS TABLE MUST BE 
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
IHE QUESTIONS MUST BE ANSWERED. All DMCll'S in the system 
will be found by the auto-slzer. If it does not find a OMCll 
the diagnostic must be restarted and the questions answered". 

8.5.? FINDING THE VECTOR AND BR LEVEL 

The vector area (address 300-776) is filled with the 
instruction IOT and *,+2' (next address). The processor 
status is started at 7 and the uhc is programmed to Interrupt. 
The PS is lowered by 1 until the DMC interrupts, a delay is 
made and if no interupt occures at PS level 3 (because of a 
bad. omcU) the program assumes vector address 300 at BR level 
5 and tne problem should be fixed in the diagnostic. Once the 
problem is fixed? the program should be re-setup again to get 
correct vector. If an interupt occured; the address to which 
the dmc 1 1 lnterupted to is picked up and reported as the 
vector, note: if the vector reported is not the vector set 
up by you; there Is a problem and auto sizing should not be 
done. 

8.6 SOFTWARE 5WITCH REGISTER 

If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user tne same switch options as described previously. 
If the nardware switch register does not exist or If one does 
and It contains all ones (177777) this software switch 
register is used. 

Control: 

To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL G on the console 
terminal <eyooard. As soon as tne CTRL G is recognized* by 
the diagnostic, the following message will be aisolayed: 
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SWRsXXXXXX NLW? 

where xxxxxx is tne current contents of the software switch 
register in octal. The software control routine will tnen 
await operator action. At »hlch time the operator is required 
to type one or more of the legal characters: 1) - 7, 2) 
line feedc<LF»), 3) carriage return(<CP>) , or 4) control-u 
(CTRL U). No checic is made for legality. If the Input 
character is not a <LF>, <CR>» or CTRL U it is assumed to be 
an octal digit. 

To change the contents of the SSH the operator simply types 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
depending on the program action desired as described below. 
The input value will be truncated to the last 6 digits typed. 
At least one digit must be typed on any given input string 
prior to the terminator before a change to the SSR will occur, 

when the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted, if a <CR> Is the only thing typed the program 
will continue without changing the SSP. The <Lt> differs from 
the <CR> oy restarting the program as if it were restarted at 
address 200. 

If a CTRL U Is typed at any point in the input string prior to 
the terminator the input value will be disregarded and the 
prompt displayed (SWR s xxxxxx new?). 

To set the SSP for the starting switches* first load the 
diagnostic* then hit CTRL G# then start the diagnostic. 
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1675 ###*#*#####«•##*#####♦##*#* TEST 1 ###»*##*####•»#*########«## 

THIS IS A SPECIAL TEST WHICH IS ONLY EXECUTED ONE TIME, 
THE FIRST PASS AFTER THE DIAGNOSTIC IS LOADED. IT TYPES ON 
THE CONSOLE THE PART NUMBERS OF THE CROMS WHICH THIS 
REVISION SUPPORTS. TO FORCE A TYPE OUT PATCH LOCATION 
ROMNUM: TO A ZERO. 

1696 #######*###**###########*« TEST 2 *##*######*#*##########**#* 

THIS IS A SPECIAL TEST WHICH WILL RUN ON A KMC (DMC WITH 
WRITTABLE CONTROL STORE) TO LOAL THE CRAM WITH THE DDCMP 
MlCPO-CODE. FIRST BE SURE BIT1 OF STAT3 IS SET UP AS FOLLOWS 
l=LOCAL HIGH SPt-ED CODE, 0sRt MOTE LOW SPEED CODE THE STATUS 
OF STAT3 BIT1 DETERMINES WHICH MICRO-CODE WILL 
BE LOADED IN THE KMC. LOOP ON This TEST FOR A FEW SECONDS 
TO LOAD THE KMC. 

1727 TEST 3 #*###»#»#*###*############# 

TEST OF BR RIGHT SHIFT 

VERIFY THAT A DEST OF BR PSH (011) OF A MICRO-INSTRUCTION 
SHIFTS THE RESULTING BP DATA RIGHT ONCE . 

1768 #*######*################«• TEST 4 ##*#####♦##########»##*#«*# 

CROM READ TEST 

THIS TEST READS EACH ROM LOCATION AND COMPARES 
If TO A SOFTWARE DUPLICATE OF THE CROM, THIS TEST 
ALSO TESTS THE JUMP(I) MICRO -PROCESSOR INSTRUCTION, 

1773 IF THIS TEST FAILS CHECK YOUR CROM PART NUMBERS , 
DZDMG-C SUPPORT'S THE FOLLOWING PART NUMBERS? 

DMCU-AP (M8200-YA) 
23-414Ay 
23-415A9 
23-41bAy 
23-417AV 
23-418A9 
2 3-419A9 
23-420A9 
23-421A9 

DMC11-AL (M8200-Y6) 
23-392Ay 
23-393A9 
23-394A9 
23-J95Ay 
23-396A9 
23-397Ay 
23-398Ay 
23-399Ay 
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184*5 ##«######*#*#*#*#»#*####»# TEST 5 #*##**###*######*########## 

CROM TEST Of JUMp(l) NEVER MICRO-PROCESSOF INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(1T SHOULD INCREMENT BY ONE). 

1898 **«*«*•*******#*«*«*«•*««« TEST b ««*»***»*#•«#»»*##***«#•##• 

CROM TEST OF JU«P(I) ALWAYS MIC KO-PROCESSOR INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY ThE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

1952 «#«»****«**#*»**»«******#* TEST 7 *•#»**#»•#*»*****«##*###**# 

CROM TEST OF JUMF(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 

SET THE C BIT, PERFORM THE JUMP INSTRUCTION , 

VEhIFY THE JUMP 8Y READING THE CONTENTS OF THE NEW ROM PC 

2009 •«»*«#*#*«*»«*•*****«*#*#• TEST 10 #*#*»##**»##############*## 

CROM TEST OK JUMP(I) ON Z BIT SET MICRO -PROCESSOR INSTRUCTION. 

SET THE Z bIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP bY READING THE CONTENTS OF THE NEW ROM PC 

246b *****«***#**#**«*#»#«**«»» TEST 11 »*«**#**«*»*#*»**#*****«#»* 

CROM TEST OF JUMp(I) ON BR0 SET MICRO-PROCESSOR INSTRUCTION, 

SET THE BR0 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP bY READING THE CONTENTS OF 1 HE NEW ROM PC 

2123 •**«***»##«*****»#*<{»«••#** TEST 12 •«»«•**#*###«*#**»*###*«*»* 

CROM TEST OF JUMP(I) ON BRl SET MICRO -PROCESSOR INSTRUCTION, 

SET THE BRl BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2180 ##***««#»**»*«»»***»•****• TEST 13 »•#*«•*•*»»«*#**•******#*»# 

CROM TEST OF JUMp(I) ON BR4 SET MICRO-PROCESSOR INSTRUCTION. 

SET THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2237 *«##«»«*##«*•***««***#*#««# TE5T 14 *************************** 

CROM TEST OF JU*P(Ii ON bR7 SET MICRO-PHOCESSOR INSTRUCTION, 

SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2/94 ************************** TEST 15 *#*•***#**»**«***##*•**•**# 

CROM TEST OF JUMR(I) ON C BIT SET MIC RO-PRQCESSOR INSTRUCTION, 
CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THAT THE JUMP DID NOT OCCUR BY READ I NG 

THE CONTENTS OF THE NEW ROM PC(1T SHOULD INCREMENT BY ONE), 

2352 *»«»*##»«*«<»«»#**#«c-»*«**« TEST 16 »*««**»**##*#»«#»»•*«*##«** 

CROM TEST OF JU^PCI) ON Z BIT St T MICRO -PROCESSOR INSTRUCTION, 
CLEAR THE Z BIT, PERFORM THE JUPP INSTRUCTION, 
VERIFY ThAT THE JUMp DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PCUT SHOULD INCREMENT BY ONE), 
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2410 #*«»»*»»*»*»««»*********#» TEST 17 #*#**«#«»##*********#*####« 

CPOM TEST OK JUMP(I) ON bFttf Shi MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BR0 biT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THAT THE JUMP DID NOT OCCUR BK READING 

THE CONTENTS OF THE NEW ROM PCUT SHOULD INCREMENT BY ONE). 

2468 «**#»**#**«****#*«**»#«#«* TEST 20 #########*•**#*#########*### 

CROM TEST OF JUMp(I) ON BRl St T MICRO -PROCESSOR INSTRUCTION , 
CLEAR THE BRl BIT, PERFORM THE JUMP INSTRUCTION , 
VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 

2526 #•#**»****#»#***#**»*«##** TEST 21 **#*#«-***##****#***#****##* 

CROM TEST OF JUMp(I) ON bR4 SET M ICRO-PROCESSOR INSTRUCTION, 
CLEAR THE BP4 BIT, PERFORM THE JUMP INSTRUCTION , 
VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(1T SHOULD INCREMENT BY ONE), 

2584 #*»***«**»*«*#**#*#*#«»#»« TEST 22 #**##*»«***##»*#«***######« 

CROM TEST OK JUMp(l) ON BR7 SET MICRO-PROCESSOR INSTRUCTION 

CLEAR THE BK7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE' JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 
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(#MAINDEC-ll-DZDMG-C DMCll CROM AND JUMP TESTS 
(•COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAXNARD, 

;*-- 



MASS. 01754 



100000 

020000 
010000 
004000 
C02000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



(STARTING PROCEDURE 
(LOAD PROGRAM 
;LOAD ADDRESS 000200 
(SWR»0 AUTOSIZE DHC11 

|SW07«1 USE CURRENT DMCll PARAMETERS 
;SK00=1 INPUT NEW DMCll PARAMETERS 

; press start 

; program will type "maindec-11-dzdmg-c dmcll crom and jump tests" 

; program will type status map " 

; program will type »r" to indicate that testing has started 

;at the end of a pass, program' will typt pass complete message 

; and then resume testing 

; subsequent restarts will not type program title 



( SWITCH REGISTER OPTIONS 



SW15"100000 

SW14S40000 

SW1 3 = 2006)0 

SWl2sl0000 

SH11M000 

SW10«2000 

SW0931000 

SW083400 

SW07»200 

SW06>i00 

SW05*40 

SW04B20 

SW03S10 

SW02»4 

SW01»2 

SW00«1 



J»1,HALT ON ERROR 
;»l,LOOP ON CURRENT TEST 
;«1, INHIBIT ERROR TYPEOUT 
,-■1, DELETE TYPEOUT/BELL ON ERROR, 
f »1 » INHIBIT ITERATIONS 
; a 1, ESC APE TO NEXT TEST ON ERROR 
(*l,LOOP WITH CURRENT DATA 
f«l,LOOP ON ERROR 
■1,USE CURRENT DMCll PARAMETERS, 



=0, AUTOSIZE DMCll 



HALT BEFORE CLOCKING MICROPROCESSOR INSTRUCTION 



;RESELECT DMCll'S TO BE TESTED (ACTIVE) 
f LOCK ON TEST SELECT - - 

; RESTART PROGRAM AT SELECTED TEST 
j INPUT DMCll PARAMETERS 
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46 

47 

*8 ( REGISTER DEFINITIONS 

49 , 

50 

51 B*0«00 R0«%0 (GENERAL REGISTER 

52 0*3*31 H1"%1 ; GENERAL REGISTER 

53 090002 R2=« ; GENERAL REGISTER 

54 B00003 R3*%3 ,- GENERAL REGISTER 

55 040004 R4z%4 ; GENERAL REGISTER 

56 340005 R5=%5 ; GENERAL REGISTER 

57 0U0006 SP=%6 ; PROCESSOR STACK POINTER 
5 B 3M087 PC»%7 (PROGRAM CCuMIe* 

59 

60 ; LOCATION EQUIVALENCIES 

61 ; ..... 

62 

63 177776 PS»177776 ; PROCESSOR STATUS WORD 

64 04)1200 STACK"1200 J START OF PROCESSOR STACK 
65 

66 ; INSTRUCTION DEFINITIONS 

67 ; — 

66 

69 £05746 PUSHISP«5746 ( DECREMENT PROCESSOR STACK 1 WORD 

7" 005726 POPlsP=S726 ) INCREMENT PROCESSOR STACK 1 WORD 

71 010046 PUSHR0S10046 J SAVE R0 ON STACK 

72 012630 POPR0«12600 ; RESTORE R0 FROM STACK 
7 3 824646 PUSH2SP«24646 ; DECREMENT STACK TWICE 
7 4 022626 P0P2SP«22626 (INCREMENT STACK TWICE 

75 .EQUIV tMT, HLT ( BASIC DEFINITION Of ERROR CALL 

76 - 

77 (BIT DEFINITIONS 

7f ! 

79 

80 100000 L1T15X100000 

91 B40000 bITl4MB000 

62 020003 BJT13»2W000 

83 0lt»ir00 BII12«1U000 

84 1,04000 6ITll*40fl0 

85 002030 BIT10*2K0!» 

86 0.M000 bIT9*1000 
fil 000400 BIT8*40tt 
as 000200 BIT7*20H 
89 Z00100 BIT6*10H 
9-1 0it0i!40 BIT5X40 
91 000l«20 B1T4S20 
9i eMilt BIT3*t0 
93 003004 B1T2»4 

91 e«et'i*2 bIH*2 

95 (Wfc>fc!l BJIi?»l 
96 
<i 1 
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98 






99 






100 






101 






102 






103 






104 






105 






1 i'b 






lfc>7 






108 




000000 


109 






lis 






111 






112 




000024 


113 


000024 


005336 


114 


000026 


000340 


115 


000030 


£04750 


116 


000032 


000340 


117 


000034 


004716 


118 


£00036 


£00340 


119 




000040 


120 


000040 


000000 


1 21 


000042 


000000 


122 


000044 


000000 


123 


000046 


003522 


124 




000052 


125 


200052 


000000 


1 26 






127 




000174 


128 


000174 


000000 


129 


000176 


000000 


1 30 






131 




000200 


132 


000200 


£00137 


133 






134 






135 




001000 


136 


001000 


005377 


(2) 


001025 


104 


(2) 






137 




091200 


138 






139 






140 






141 






142 


001200 


177570 


143 


001202 


177570 



040515 
041515 



047111 
030461 



; :*••»»•••»•**••••*•**••••••••••*••••»•••*••*«•***•••*••*••«••••*»••*• 

J TRAPCATCAER FOR ILLEGAL INTERRUPTS 
I THE STANDARD *TRAF CATCHER" IS PLACED 
j BETWEEN ADDRESS TO ADDRESS 776. 
{IT LOOKS LIKE "PC+2 HALT", 

) :•»•••••«••••••*•*••*•*••••»••*•*•••«•••••*••*•»•••••••••*••••••**«•• 

.■0 

; STANDARD INTERRUPT VECTORS 



.=24 



.PFAIL 
340 
.HLT 
340 

.TRPSRV 
340 





» END AD 





,«174 

DISPREGf 
SHREGI 



{ POWER FAIL HANDLER 

; SERVICE ST LEVEL 7 

{ERROR HANDLER 

; SERVICE AT LEVEL 7 

; GENERAL HANDLER DISPATCH SERVICE 

{SERVICE AT LEVEL 7 

> SAVE FOR ACT-11 OR XXDP 

; RETURN ADDRESS IF UNDER ACT>11 OK XXDP 

{SAVE FORACT-11 OR XXDP 

{FOR USE WITH ACT-11 OR XXDP 

{ ACT-11 PROGRAM CHARACTERISTICS 



{ SOFTWARE DISPLAY REGISTER 
J SOFTWARE SWITCH REGISTER 



;G0 TO START OF PROGRAM 



.=1000 

MTITLE: .ASCII «377><ia>/MAINDEC-li-DZDMG-C/<377> 
.ASCIZ /DHC11 CBOM AliDJUHP TESTS/«377> 



f INDIRECT POINTERS TO SNITCH REGISTER AND LIGHT DISPLAY 
........................................ .... 



DISPLAY* 177570 
SNRJ 177570 
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1 44 
145 
146 
147 

148 001204 177560 

149 001206 177562 

150 801210 177564 

151 001212 177566 
152 

153 
154 
155 

156 001214 000000 

157 001216 000000 

158 001220 £00000 

159 001222 000003 

160 001224 000000 

161 001276 000000 

162 001230 000000 

163 001232 000000 

164 001234 ^03000 
165 

166 
167 
163 

169 001236 900000 

170 001240 000000 

171 S01242 000000 

172 £41244 030000 

173 001246 £00000 

174 001250 000000 

175 001252 000000 

176 001254 000000 

177 001256 000000 

178 001260 000000 

179 001262 et/0009 

180 001264 000000 

181 1»01266 000000 

i «2 601270 wmm 

183 001272 S40000 

181 801274 U00000 

185 001276 000000 

186 001300 b00000 
167 001302 S00001 

188 001304 Z0000P 

189 001306 000001 

190 t01 31H P00f01 

191 l>01312 000001 

192 M01314 2000C1 

193 V«M316 WoWa 
194 

195 001323 n.01472 

r>t> £01 322 M1676 
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; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 



TKCSR: 177560 

TKDBRi 177562 

TPCSRl 177564 

TPDBRt 177566 

; PROGRAM CONTROL PARAMETERS 
! —————————— 

RETURN: 

next: 
lock: 

ICOUNTJ 3 

Lpcnt: 
tstno: 

PASCNTI 
ERRCNTI 

lsterr: 
(program variables 



strtsw: 

stat: 

CLKX: 

HUEKXt 

tempi: 

TEHP2I Id 

TEMP3: 

TEhp4i 

TEMP5: 

SAVR0: 

SAVRli 

SAVR2* 

SAVR3: 

SAVR4: 

SAVR5i 

savsp: 

s»vpc: 

zero: 

one: i 



kemlim: 

DMACTV: .BLKtt 1 

DMNUMt ,BLKW 1 

SAVACT; .BLKW 1 

SAVNUM; .BLKW 1 
RUN : 
.EVEN 

CREAM : DM.MAP-6 

MILK: CNT.MAP-4 



J TELETYPE KEYBOARD CONTROL REGISTER 
5 TELETYPE KEYBOARD DATA BUFFER 
{TELEPRINTER CONTROL REGISTER 
{TELEPRINTER DATA BUFFER 



; SCOPE ADDRESS FOR LOOP ON TEST 

{ADDRESS OF NEXT TEST TO BE EXECUTED 

; ADDRESS FOR LOCK ON CURRENT DATA 

{NUMBER OF ITERATIONS THAT CURRENT TEST MILL BE 

{NUMBER OF I'TEREATIONS COMPLETED 

{NUMBER OF TEST IN PROGRESS" 

{NUMBER OF PASSES COMPLETED 

{TOTAL NUMBER OF ERRORS 

{PC OF LAST' ERROR CALL 



{SWITCHES AT START OF PROGRAM 
{DM STATUS HORD STORAGE 



{TEMPORARY STORAGE 
; TEHpORARl STORAGE 

{temporary storage 
; temporary storage 
{ temporary storage 
{r0 storage 
;r1 storage 
!r2 storage 
;r3 storage 
;r4 storage 
;r5 storage 

; STACK POlNlER STORAGE 
{ PROGRAM COUNTER STORAGE 



{HIGHEST LOCATION FOR NPR'S 
{DMCll'S SELECTED ACTIVE. 
{OCTAL NUMBER OF DMCll'S. 
; ORIGINAL ACTV DEVICES 
; WORKABLE NUMBER 
{ POINTER TO RUNNING DEVICE. 

{TABLE POiNlER. 
; TABLE POINTER 
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197 
198 
199 
240 
201 
202 
203 
204 
205 
206 
2*7 
208 
209 
210 
211 
212 
213 
214 
215 
216 
21 J 
218 
219 
220 
221 
222 
223 
224 
725 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
211 
242 
243 
244 
245 
246 
247 



; PROGRAM CONTROL FLAGS 



001324 
001325 
•01326 
001327 



801 330 
801330 
001332 
001334 
031336 
•01340 
001342 
C01344 
001346 
001350 
001352 
401354 
601356 
001360 
001362 
001364 



000 
000 



104400 
003576 
104401 
003736 
104402 
003766 
104403 
004050 
104404 
004154 
104 405 
004174 
104406 
004374 
104407 
004434 
104410 
t>04466 
104411 
604472 
104412 
005466 
104413 
C05436 
104414 
005504 
104415 
005552 
104416 
005616 



INIFLGs .BYTE 

ERRFLSj .BITE 

LOKFLG: .BYTE 

OV.FLG: .BYTE 

.EVEN 



; PROGRAM INITIALIZATION FLAG 
J ERROR OCCURED FLAG 
I LOCK ON CURRENT TEST FLAG 
{QUICK VERIFY FLAG. 

)0N FIRST PASS OF EACH DMC11 ITERATIONS MILL SE 



| DEFINITIONS FOR TRAP SUBROUTINE CALLS 

{ POINTERS TO SUBROUTINES CAN BE FOUND 

{ IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 

! :*«•*»*•*»****••••»**•***»*•**•»*•*••»••»»**••»***•»•«*»*»*»•*»»***** 

J CALL TO SCOPE LOOP AND ITERATION HANDLER 



SCOPE«TRAPt0 

.SCOPE 
SC0P1«TRAP+1 

.SCOPl 
TYPEbTRAP+2 

.TYPE 
INSTR«TRAP+3 

.INSTR 
INSTERKTRAP+4 

. INSTER 
PARAM«TRAP+5 

. PARAH 
SAV06«TRAP+6 

, SAV05 
RE305*TRAP+7 

.RES0S 
CON VRT«TRAP+10 

.CONVRT 
CNVRf«TRAP+ll 

.CNVRT 
MSTCLR*TRAP+12 

.MSTCtR 
DELAY«THAP+13 

.DELAY 
R0MCLK«TRAP+14 

.ROHCLK 
DATACLK-TRAP+15 

.DATACLK 
TIMER»TKAP+16 

.TIMER 

; ..... — .... — ............ ........ 

] | •****••*•••••••••••••••*•••»»»•••»»••*•*•**•*•*••••••*••« »**#»##••*# 



[CALL TO LOOP ON CURRENT DATA HANDLER 
{CALL TO TELETYPE OUTPUT ROUTINE 
;CALL TO ASCII STRING INPUT ROUTINE 
{CALL 10 INPUT ERROR HANDLER 
;CALL TO NUMERICAL DATA INPUT ROUTINE 
;CALL TO REGISTER SAVE ROUTINE 
;CAI/tf > TO REGISTER RESTORE ROUTINE 
;CALL TO DATA OUTPUT ROUTINE 

[CALL TO DATA OUTPUT rOUNTINE WITHOUT CR/LF. 

;CALL TO ISUE A MASTER CLEAR 

[CALL TO DELAY 

jCAIiL TO CLOCK ROM ONCE 

;CALL TO CLK DATA 

{CALL TO DELAY A CLUCK TICK 
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PROGRAM PARAMETERS, VA 


248 






JDMC11 


CONTROL 


249 










250 










251 


•01366 


000000 


STATU 





752 


001370 


P00000 


STAT2 I 





253 


•01372 


000000 


STAT3: 





254 










255 






;0MC11 


VECTOR 


256 










25 7 










258 


««01 374 


000000 


dmrvec: 





259 


•0137o 


000000 


DMRLVLl 





2b<> 


•01400 


000000 


DMTYEC t 


W 


2tol 


001402 


000000 


DMTLVlj 





262 


001404 


000000 


DMCSRt 





763 


t'01406 


000000 


DMCSRHl 


a 


264 


041410 


000000 


DMCTL» 





265 


£01412 


000000 


DMP04I 





266 


001414 


U90000 


DMP06I 





7b7 










268 






;TEM,P STORAGE 


2b9 










270 










271 


001416 


000000 


TEMP* 


e 


272 




001460 


,s.+40 




273 










274 






[DMCU 


STATUS 


275 










276 










277 




001500 


.=1500 




278 


•01500 




DM, MAP: 




279 


•01500 


000001 


DMCR001 


-BLKW 


280 


W31502 


000001 


DMS100t 


.BLKW 


mi 


001504 


000401 


DMS200I 


.BLKW 


282 


001506 


000001 


DMS300t 


.BLKH 


2«3 










i84 


•101510 


000001 


LMCR01 : 


,BLKW 


28S 


031512 


Z00001 


DMS101: 


• BLKW 


286 


901514 


000001 


DMS2011 


.BLKH 


287 


001510 


900001 


DMS301I 


.BLKW 


280 










^89 


0015 2 J 


000001 


LMCR02: 


.BLKW 


290 


001522 


000001 


DMS1021 


.BLKW 


291 


i'91524 


000001 


DMS202: 


• BLKW 


<92 


J31526 


000001 


DM5302: 


.BLKW 


i'Jl 










2<M 


I'll 5 3 vi 


0U0001 


DMCR03: 


.BLKW 


295 


141532 


0*0001 


DMS103; 


.BLKW 


29b 


001534 




DMS203I 


• BLKW 


797 


• •M53b 


?V)0001 


UM5303J 


.BLKW 


^98 










299 


i?dl54ti 


000001 


DMCR04: 


.BLKW 


J00 


001542 


;;*000i 


DMS104) 


• BLKW 


3fc 1 


0015 4 4 


000B01 


DMS204: 


• BLKW 


1 2 


I ■■•U546 


i'<S0<S0! 


DVS3114! 


.BLKW 













; POINTER TO DMC11 RECEIVER INTERRUPT VECTOR 
{POINTER TO DMCll RECEIVER INTERRUPT SERVICE PS 
;F02WER TO OHCi: THAHSMIfXiiR INIIiRRUPT ViiClOK 
{POINTER TO DMCll TRANSMITTER INTERRUPT SERVICE PS 
{POINTER TO D«CH CONTROL STATUS REGISTER 
{POINTER TO DMCU CONTROL STATUS REGISTER HIGH BYTE. 
{POINTER TO DMC11 CONTOL OUT REGISTER 
{POINTER TO DMCU PORT REGISTERtSEL" 4) 
{POINTER TO DMCll PURT REGISTERtSEL 6) 



{CONTROL STATUS REGISTER FOR DMCU NUMBER 00 
[VECTOR FOR DMCll NUMBER 00 
[DDCMP LINEI FOR DMCll NUMBER 00 
{3RD STATUS WORD 

{CONTROL STATUS REGISTER f Oh DMCll NUMBER 01 
{VECTOR FOR DMCll NUMBER 01 
{DDCMP LINE* FOR DMCll NUMBER 01 
{3RD STATUS WORD 

[CONTROL STATUS REGISTER (OK DMCll NUMBER 02 
J VECTOR FOR DMCll NUMBER 02" 
[DDCMP LINE* FOR UMCI1 NUMbtF 02 
[3RD STATUS WORD 

[CONTROL STATUS REGISTER FOh DMCll NUMBER 03 

[VECTOR FUR DMCU NUMBER 03 

; DDCMP LINE* FOR DMCll NUMBER 03 

[3RD STATUS WORD 

[CONTROL STATUS REGISTER *0K DMCU NUMBER 04 
[VECTOR FOH D"C11 NUMBER 04 
{DDCMP LINE* FOR DMCll NUMBER 04 
•3kO STATUS WOW* 
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304 


031553 


000001 


MCR05: 


.BLKW 


3W5 


301552 


000001 


DMS105: 


.BLKW 


306 


001554 


302001 


DMS205: 


, BLKW 


31.* 7 


001556 


000201 


DMS305I 


.BLKW 


308 










3«J^ 


301560 


000001 


DMCR06 1 


.BLKM 


310 


431562 


000001 


DMS106J 


• BLKM 




S31S64 


20000! 


DM5206 S 


,BLKW 


312 


001566 


£00001 


DMS306: 


.BLKM 


313 










)H 


001570 


400001 


DHCB07: 


.BLKW 


315 


«S01572 


0O0b01 


DMS107: 


.BLKW 


3i& 


031574 


000001 


DK5287: 


.BLKW 


317 


031576 


000001 


DMS307: 


.BLKM 


.119 
319 


001600 


000001 


DMCR10! 


.BLKW 


32)} 


001602 


0*70001 


DMS110J 


.BLKW 


321 


031604 


000001 


OHS210: 


.BLKM 


322 


001606 


000001 


DMS310J 


.BLKM 


323 










324 


801610 


300001 


DHCRll : 


.BLKW 


325 


901612 


b00001 


DMSlllI 


.BLKW 


32b 


901614 


000001 


DMS211 : 


.BLKW 


327 


031616 


£«'di)<d\ 


DMS311: 


.BLKW 


328 
329 


401620 


000001 


DHCP.12: 


.BLKW 


330 


901622 


000001 


DKS112S 


• BLKW 


331 


401621 


000001 


DMS2121 


.BLKW 


332 


901626 


3900131 


DMS312I 


.BLKM 


333 










334 


001630 


000001 


DMCR13: 


.BLKM 


335 


341632 


000001 


Dwsii3: 


• BLKM 


336 


001634 


300001 


DMS2131 


.BLKW 


33? 


031636 


000001 


DMS313: 


.BLKW 


339 










339 


001649 


003001 


DMCR14I 


.BLKW 


34kJ 


001642 


033001 


D«5U4: 


• BLKW 


341 


001644 


000001 


DMS214: 


• BLKM 


342 


001646 


000001 


DMS3141 


.BLKW 


343 










344 


341650 


300001 


DMCPlS: 


.BLKM 


345 


331652 


000001 


0MS115: 


• BLKW 


346 


901654 


000001 


DM5215S 


• BLKW 


34 7 


301656 


000001 


DHS31S: 


.BLKW 


348 


001660 


300001 


DMCR16: 


.BLKW 


350 


001662 


000001 


DMSl 16 : 


.BLKW 


351 


301664 


000001 


DHS216: 


, BLKM 


352 


001666 


000001 


DMS316J 


.BLKM 


353 










354 


001670 


300^01 


DMCR1 7 1 


.BLKW 


355 


931672 


33000! 


DMS117S 


S 8LK« 


356 


001674 


300001 


DMS217: 


.BLKW 


357 
358 


001676 


200001 


DM5317 J 


.BLKW 


359 


001700 


000*00 


DM, END: 


000000 



{CONTROL STATUS REGISTER FOR DMC11 NUMBER 05- 
; VECTOR FOR DMCll NUMBER 05 
;DDCHP LINE! FOR DMCll NUMBER 05 
;3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 06 
J VECTOR FOR DMCll NUMBER 06 " 
{DDCMP kthEi cqb DMCll NUMBER 06 
{3RD STATUS WORD 

;CONTROL STATUS REGISTER FOR DMCll NUMBER 07 
; VECTOR FOR "DMCll NUMBER 07 
{DDCMP LINE!! FOR DMCli NusbfcR 07 
{3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 10 
; VECTOR FOR CMC 11 NUMBER 10" 
{DDCMP LINE! FOR DMCll NUMBER 10 
j 3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 11 
; VECTOR FOR "DMCll NUMBER 11 
{DDCMP LINE* FOR DMCll NUMBER 11 
j 3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 12 
; VECTOR" FOR "DMCll NUMBER 12" 
;DDCHP LINE* FOR DMCll NUMBER 12 
j 3RD STATUS MORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 13 
{VECTOR FOR "DMCll NUMBER 13 
{DDCMP LINE* FOR DMCll NUMBER 13 
{ 3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 14 

{VECTOR FOR "DMCll NUMBER 14" 

{ DDCMP LINE! FOR DMCll NUMBER 14 

{3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER IS 
{VECTOR FOR DMC 1 1 NUMBER 15" 
{DDCMP LINE* FOR DMCll NUMBER 15 
{3RD STATUS WORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 16 
{ VECTOR FOR DMCll NUMBER 16 " 
{DDCMP LINE* FOR DMCll NUMBER 16 
{3RD STATUS MORD " 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 17 
{ VECTOR FOR DMCll NUMBER 17 
{DDCMP LINE* FOR DMCll NUMBER 17 
j 3RD STATUS WORD " " 
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360 
361 
362 
363 
364 

366 
367 
368 
36 » 
373 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
381 
385 
386 
3e7 
388 
389 
390 
39! 
392 
393 
394 
395 
396 
397 
398 
399 
4f0 
401 
4i<2 
403 
404 
4w5 
406 
4t>7 
408 
409 
410 







{DMCll 


PASS COUNT 


AND ERROR COUNT TABLE 


001702 




cnt.map: 




SW1732 




PACT00S 





•PASS COUNT FOR DMCll NUMBER 00 


001734 


S00030 


ERCT00: 





{ERROR COUNT FOR DMCll NUMBER 00 


001706 


000000 


PACTS IS 





{ PASS COUNT FOR DMCll NUMBER 01 


1>01 710 


000000 


ERCT01 • 





{ ERROR COUNT FOR DMCll NUMBER 01 


901712 


000000 


PACT02 : 





{ PASS COUNT FOR DMCll NUMBER 02 


001714 


000000 


ERCT02: 





{ ERROR COUNT FOR DMCll NUMBER 02 


031716 


000000 


PACT03S 





{PASS COUNT FOR DMCll NUMBER 03 


001720 


300000 


ERCT03 : 





{ERROR COUNT FOR DMCll NUMBER 03 


001722 


ii30003 


PACT04J 





{PASS COUNT FOR DMCll NUMBER 04 


001724 


000000 


ERCT04I 





{ERROR COUNT FOR DMCll NUMBER 04 


001726 


330000 


PACT05! 





{PASS COUNT FOR DMCll NUMBER 05 


031730 


000000 


ERCT05S 





{ERROR COUNT FOR DMCll NUMBER 05 


001732 


300000 


PACT06: 





{PASS COUNT FOR DMCll NUMBER 06 


401734 


000000 


ERCT06: 





{ERROR COUNT FOR DMCll NUMBER 06 


0.M73& 


S00000 


PACT07! 





{PASS COUNT FOR DMCll NUMBER 07 


001740 


9P0U03 


ERCT0 7 : 





{ERROR COUNT FOR DMCll NUMBER 07 


001742 


000000 


PACT10: 





{PASS COUNT FOR DMCll NUMBER 10 


001744 


303000 


ERCT10I 





{ERROR COUNT FOR DMCll NUMBER 10 


001746 


000000 


pactii: 





{ PASS COUNT FOR DMCll NUMBER 11 


0317S0 


000030 


ERCTlil 





{ ERROR COUNT FOR DMCll NUMBER 11 


001752 


000000 


PACT12: 





{PASS COUNT FOR DMCll NUMBER 12 


90175 * 


000000 


ERCT123 


a 


.E-DDrtD rnnWT ran uMrii niimufd i? 


■3J1756 


000000 


PACTl 3 : 





{ PASS COUNT FOR DMCll NUMBER 13 


301 76 J 


300000 


ERCT13: 





{ ERROR COUNT FOR DMCll NUMBER 13 


£01762 


000000 


PACTl 4 : 





{PASS COUNT FOR DMCll NUMBER 14 


30176 4 


000030 


ERCT1 4 : 





{ ERROR COUNT FOR DMCll NUMBER 14 


001766 


300030 


PACTlb: 





{ PASS COUNT FOR DMCll NUMBER 15 


001 77») 


30000 ' 


EP.CT15I 





{ ERROR COUNT FOR UMC11 NUMBER 15 


001772 


303*03 


PACTl 6 : 





{PASS COUNT FOR DMCll NUMBER 16 


3017 74 


£00030 


EPCT16: 





{ ERROR COUNT FOR DMCll NUMBER 16 


1001776 


3-i>43-1 


PACTl 7: 





{PASS COUNT FOR DMCll NUMBER 17 


110200) 


030W00 


ERCT1 7 : 





{ FPRQR COUNT FOR DMCll NUMBER 17 
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FORMAT OF STATUS TABLE 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 



IIIIIIIIIIIIIIIII 
ICONTROL REGISTER! CSR 

IIIIIIIIIIIIIIIII 



IIIIIIIIIIIIIIIII 
I«I»I«1»I»I«I»I# • v E C T R * I STAT1 
IIIIIIIIIIIIIIIII 



IIIIIIIIIIIIIIIII 

I • B M ADD»I«LINE #«I STAT2 

IIIIIIIIIIIIIIIII 



IIIIIIIIIIIIIIIII 
IIIIIIIIIIlIlII*I*I STAT3 
IIIIIIIIIIIIIIIII 



DEFINITION OF FORMAT 



CSR: CONTAINS DMC11 CSR ADDRESS 

STATU BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT15"t MICRO-PROCESSOR HAS CRAM 
BIT15«0 MICRO-PROCESSOR HM CROM 
BIT14«1 ???? TURNAROUND CONNECTOR IS ON 
BIT14C0 NO TURNAROUND CONNECTOR 
BIT13*0 LINE UNIT IS AN M8201 
BIT13*1 LINE UNIT IS AN M8202 
BIT12»1 NO LINE UNIT 

BITS 09-11 IS DHCll BR PRIORITY LEVEL 

STAT2: LOW BITE IS SNITCH PAC#1 CODCHP LINE NUMBER J 
HIGH BYTE IS SWITCH PACI2 (BM873 BOOT ADD) 

STAT3: BIT0«1 DO FREE RUNNING TESTS ON KMC 

(MUST BE SET TO A ONE MANUALLY I PROGRAM DZDNI ONLY J } 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
DZDMG TEST 2 FIRST 

BIT1*1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 
BIT1«0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 



MACYlt 3*3110463 ll-JUL-77 



DZDMG.P11 22 


-A PR- 7 7 


09)29 




468 










469 










470 










471 










472 










473 










471 










475 










476 


442002 


012737 


000340 


177776 


477 


092010 


812706 


001200 




478 


002014 


012737 


005336 


000024 


479 


002022 


013737 


001310 


00U14 












481 


002334 


165037 


001325 




482 


002040 


105037 


001327 




483 


002044 


012737 


001470 


001320 


484 


002i>52 


312737 


001676 


001322 


485 


342060 


012737 


100000 


001 316 


486 


902066 


012700 


001702 




487 


002072 


005020 






488 


002074 


022700 


002002 




489 


002100 


001374 






490 


002132 


005037 


001234 




491 


002106 


012737 


000001 


001226 


492 


902 U 4 


012737 


002002 


001214 


493 










494 


042122 


013746 


0O0006 




495 


002126 


013746 


000004 




496 


002132 


Si 2737 


002166 


000004 


497 


002140 


012737 


177570 


001202 


498 


0021 46 


012737 


177570 


001200 


499 


<*?2!5! 


922777 


177777 


177020 


500 


002162 


301402 






501 


00216 1 


000407 






5«(2 


002166 


022626 






503 


•JJ2174 


012737 


000176 


001202 


504 


0!)217o 


012737 


000174 


001200 


5e5 


002204 


012637 


000004 




506 


002210 


012637 


000006 




507 


00221 i 


105737 


001324 




598 


00222 d 


301006 






509 


902222 


022737 


003522 


000042 


510 


032 23 1 


001402 






511 


W02232 


104402 


001000 




512 


0422 3b 


201737 


007606 




513 


002242 


017737 


176731 


001236 


514 


>»0225H 


J05737 


000042 




515 


002254 


001402 






51o 


042256 


Z05037 


001236 




517 


'•■02 26 2 


,-32 7 37 


000l'0l 


B01 23h 


51U 


302270 


ftvl0!2 






519 


U02272 


1 057 37 


K is 1 2 3 b 




52^ 


0^227'j 


1 00007 






521 


002 J PI ) 


J*5 737 


0913tfb 




572 


i>6 » 


'..Jt J06 






5? J 


002 306 


1 044 J2 


0.J7154 
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; PROGRAM INITIALIZATION 

fLOCK OUT INTERRUPTS 

J SET UP PROCESSOR STACK 

7 SET UP POKER FAIL VECTOR 

jCLEAR PROGRAM CONTROL FLAGS AND COUNTS 

I TYPE TITLE MESSAGE 



.STARTS 


MOV 


#340, PS 


>LOCK OUT INTERRUPTS 




MOV 


(STACK, SP 


J SET UP STACK 




MOV 


#.PFAIL,0I24 


;SET UP POWER FAIL VECTOR 




MOV 


DMNUM, SAVNUM 


;SAVE NUMBER OF DEVICES IN SYSTEM. 






SWFu»» 


{CLEAR SOFT TYPEOUT FLAG 




CLRB 


ERRFLG 


; Clear error flag 




CLRB 


QV.FLG 


;ZERO QUICK VERIFY FLAG 




MOV 


•DM. HAP- 10, CREAM ; GET MAP POINTER. 




MOV 


#CNT.NAP-4,&ILK 


; GET PASS COUNT MAP POINTER 




MOV 


IBIT15/RUN 


;POINT POINTER TO FIRST DEVICE. 




MOV 


«CNT.MAP,R0 


fPASS COUNT POINTER" TO R0 


2381 


CLR 


(R0) + 


; clear Table 




CMP 


«CNT.MAPfl00,R0 


jDONE YET? " 




BNE 


23$ 


; KEEP GOING 




CLR 


LSTERR 


;CLEAR LAST ERROR POINTER 




MOV 


tl,TSTNO 


•SET UP FOR TEST 1 




MOV 


t. START, RETURN 


J SET UP FOR POWER FAIL BEFORE 
; TESTING STARTS 




MOV 


0»6»-CSP) 


;SAVE CURRENT VECTORS 




MOV 


S»4»-(SP) 


; 




MOV 


#6$,»»4 


jSET UP FOR TIMEOUT 




MOV 


*177S70*SNR 


1SET SHR TO HARD SWR ADDRfcSS 




MOV 


4177570, DISPLAY 


;SET DISPLAl TO HARD SHR ADDRESS 




CMP 


»-l,9SWR 


; REFERENCE HARDWARE SWITCH HEGlSTER 




BEO 


b$t2 


;IF a -1 USE SOFT SWR ANYWAY 




BR 


7S 


;IF IT EXISTS AND NOT = -1 USE HARD SWR 


6Si 


CMP 


CSP3+, (SP)+ 


; ADJUST STACK 




MOV 


ISWREGfSHR 


J POINTER TO'SOFT SWR 




MOV 


»DISPREG,DISPLAY;POINTER TO SOFT DISPLAY REG 


7s: 


MOV 
MOV 


(SP)+,e#4 
(SPJ + ,t>*6 


; RESTORE VECTORS 




TSTB 


1NIFLG 


;HAS INITIALIZATION BEEN PERFORMED 




BNE, 


20t 


;BR IF YES 




CMP 


l$£NDAD,M42 


;IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 




BEG 


20$ 






TYPE 


, MT1TLE 


(TYPE TITLE MESSAGE 


20t: 


JSR 


PC.CKSWR 


;CHECK FOR SOFT SWR 




MOV 


eSWR,STKTSW 


; STORE STARTING SWITCHES 




TST 


0*42 


;IS II RUNNING IN AUIO MODE? 




BEO 


.♦6 


;BR IF NO 




CLR 


STRTSW 


;IF YES, CLEAR SWITCHES 




BIT 


ISW00,STRTS* 


;IF SW H 0«1, QUESTIONS ARE ASKED. 




BNE 


17$ 


;BR It S»v00=l 




TSTB 


STRTSW 


;8IT7=1?? 




bPL 


17$ 


;BR IF Sw07=0 




TST 


DMACTV 


;ARK ANY DEVICES SELECTED'/ 




BNE 


1 b$' 


;BK iF YES 




TYPt, 


NO ACT 


;NU DEVICES SELECTED. 
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521 


>>42 312 


940000 






HALT 




;STOP THE SHOW 


525 


U02311 


'J407 76 






BR 


.-2 


{DISQUALIFY CONTINUE SWITCH 


526 


002316 


044737 


010512 


175 > 


JSR 


PC, AUTO. SIZE 


;G0 DO THE AUTO SIZE 


527 


992322 


145/37 


001324 


16$ * 


TSTB 


INIFLG 


;FIRST TIME? 


528 


dv232o 


641410 






BEQ 


21* 


;BR IF YES 


529 


04233* 


1 05737 


001236 




TSTB 


STRTSM 


}IF USING SAME PARAMETERS OUNT 


530 


.142 334 


1 00431 






B*I 


1$ 




S3! 


042 336 


33273? 






BIT 


»3ITliBiT2,STRTSKjIS TEST MO. OR LOCK SELECTED 


532 


302344 


3*1403 






BEQ 


24$ 


;IF NO THEN TYPE STATUS 


533 


30234b 


O03424 






bR 


IS 


•IF YES DO NOT TYPE STATUS 


534 


t>42350 


wait 37 


001324 


21 8 1 


COM 


INIfLG 


j SET FLAG 


535 


442354 


104402 


006224 


24$ j 


TYPE 


, XHEAD 


•TYPE HEADER 


53b 


i>02360 


012704 


001500 




HQV 


*DM.»AP,R4 


;5ET POINTER 


537 


0023o4 


010437 


001246 


58t 


MOV 


R4, TEMPI 


•SET ADDRESS 


538 


002370 


012437 


001250 




MOV 


(R4)+,TEHP2 


j SET CSR 


539 


302 374 


841411 






BEG 


IS 


; ALL DONE IF ZERO 


540 


002376 


012437 


001252 




MOV 


CR4)+»TEMP3 


;SET STAT1 


541 


002402 


1)12437 


001254 




MOV 


(R4»,TEMP4 


;5ET STAT2 


542 


042106 


312437 


301256 




MOV 


(R4)+»TEMP5 


;SET STAT j 


543 


042412 


104410 






CONVRT 




•TYPE OUT STATUS MAP 


544 


«42tH 


607454 






XSTATO 




545 


332416 


000762 






BR 


5S 




546 


1532420 


012703 


001500 


1SI 


MOV 


fOM.MAP, R0 


;R0 POINTS TO STATUS TABLE 



547 

5 48 ;;••••••••»••••••••••••••*»••••••••••••••«•••••••••••••••••••••**••••• 

549 J|«AUTO SIZE TEST 

550 »j*THIS TEST VERlFYS THAT THE DMCllS AND/OR KMCllS ARE AT THE CORRECT FLOATING 

551 •ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, It IS NOT A HARDWARE ERROR, 

552 j; •CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,OH,DQ,DU,DUP,LK,DMC,DZ,KMC) , 

553 ••IF THERE ApE NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST" 
551 i'*DMCl! ADDRESS IS 760070 5 " KMCl 1 IS 7601 \a\ HO DEVICE SHOULD EVER BE AT 

555 j;*ADl>RESS 760000. THIS TEST MAS REQUIRE 2 OR MORE ATTEMPTS "TO GET THE 

556 ;;*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 

557 ;;«YOU THE FIRST TIME, IT MAX COME BACK AND TELL lOU A DIFFERENT ADDRESS 

558 JJ*THE NEXT TIME YOU RUH IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 

559 ;>«WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE 

560 | ; (CORRECT) . 

561 ; ;••••••••••••«••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

562 



So 3 


002424 


813746 


000004 




MOV 


»*4,-(SP) 


;SAVE LOC 4 


564 


002430 


013746 


000006 




MOV 


e#6,-(sp) 


jSAVE LOC 6 


565 


U42434 


0(5503 ? 


000006 




CLR 


0*6 


; CLEAR VEC + 2 


S66 


042440 


005037 


001252 




CLR 


TEMPS 


; CLEAR FLAG 


567 


002141 


3i5005 






CLR 


R5 


;R5*0»DMC, K5r-1»KMC 


568 


£424 46 


011037 


001404 




AUSTRU MOV 


(R0), DMCSR 


;GET NEXT DMC CSR " 


56J 


032452 


001564 






BEQ 


AUDONE 


;BR IF DONE 


570 


002454 


005705 






TST 


R5 


;DMC OR KMC? 


571 


002456 


901005 






BNE 


1$ 


f BR IF KMC 


572 


(502460 


332760 


100000 


000402 


BIT 


IBIT15.2CR0) 


;CHECK FOR DMC CSR 


573 


902166 


£01061 






BNE 


SKIP 


;SKIP IF NOT DMC 


574 


002470 


040404 






BR 


2S 


;ITS A DMC SO CONTINUE 


575 


902472 


932760 


100000 


000002 


iat six 


ftgTTt^. ?rDai 


•CHECK FOR KMC CSR 


576 


002500 


801454 






BEQ 


SKIP 


{SKIP IF NOT KMC 


577 


002502 


012/37 


002674 


000004 


2$: MOV 


#N0DEV,*#4 


;SET UP FOR TIMEOUT 


578 


932510 


005/05 






TST 


R5 


;DMC OR KMC? 


579 


£42512 


301003 






BNE 


3S 


jBR IF KMC 



DZDMG 


MAC 5(1 1 


30(1046) 


11 -JUL 


-77 12111 PAGE 


13 






PAGE! 


DZ0MG.P11 22 


-APR-77 


09:29 


PROGRAM 


INITIALIZATION 


AND START UP. 




580 


042514 


012703 


000006 






MOV 


t6,R3 


;R3 IS COUNT OF DEVICES BEFORE DMC 


581 


-5*2520 


000402 








BR 


4$ 


>G0 ON 


592 


002522 


012703 


000010 




3$: 


MOV 


*10,R3 


;R3 IS COUNT OF DEVICES BEFORE KMC 


583 


042526 


012702 


003010 




4SI 


MOV 


#0EVTAB,R2 


;R2 IS DEVICE TABLE'PONTER " " 


584 


042532 


012701 


160010 






MOV 


1160010, Rl 


; START WITH ADDRESS 160010 


585 


£425 36 


B4571 1 






FLOAT! 


TST 




; CHECK ADDRESS IN Rl 


586 


342540 


1 11204 








MOVB 


(R2),R4 


f'IF NO TIMEOUT, GET NEXT ADDRESS 


587 


0425 42 


£60401 








ADD 


R4,K1 


JIN Rl 


568 


1402544 


045201 








INC 


Rl 


589 


00254b 


040401 








BIC 


R4,R1 




590 


902550 


005703 








TST 


R3 


; ANY MORE DEVICES TO CHECK FOR? 


591 


1402552 


041471 








BNE 


FLOAT 


;BR IF YES 


592 


032554 


312737 


002700 


000004 




MOV 


#ERR,0#4 


jOK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 


593 


002562 


010137 


003P22 






MOV 


Rl.XLOC 


jSAVE FIRST DMC/KMC ADDRESS 


594 


932566 


005705 






FYl 


TST 


R5 


jDMC OR KMC? 


595 


002573 


001005 








BNE 


IS 


; BR IF KMC 


596 


002572 


342760 


100000 


000002 




BIT 


#BIT15,2(R0) 


fCHECK FOR DMC CSR 


597 


03260e 


001014 








BNE 


SKIP 


{SKIP IF NOT DMC 


598 


042602 


0P0404 








BR 


2S 


;ITS A DMC SO CONTINUE 


599 


002604 


042760 


100000 


000002 


1$: 


BIT 


#BIT15,2(R0) 


fCHECK FOR KMC CSR 


600 


042612 


001407 








BEQ 


SKIP 


fSKIP IF NOT KMC 


6wi 


002614 


60571 1 






25: 


TST 


CRi) 


{CHECK DMC ADDRESS 


602 


00261b 


020137 


001404 






CMp 


Rl , DMCSR 


fDOES IT MATCH 


603 


042622 


001411 








BEQ 


OK 


; BR IF YES 


btf 4 


942624 


362701 


000010 






ADD 


#10, Rl 


; GET NEXT DMC ADDRESS 


605 


£02630 


000756 








BR 


FY 


jDO IT AGAIN 


btfo 


042b32 


062700 


000010 




skip: 


ADD 


*10,R0 


fSKIP TO NEXT CSR IN TABLE 


6o7 


442636 


011037 


001404 






MOV 


(R0), DMCSR 


; GET NEXT CSR 


b48 


002642 


001470 








BEQ 


AUDONE 


fBR IF DONE 


609 


002644 


000750 








BR 


FY 


; ELSE CONTINUE 


610 


002646 


£62700 


000010 




ok: 


ADD 


110, R0 


;SK1P TO NEXT DMC CSR 


611 


002652 


062/37 


0000 14 


003422 




ADD 


I10,XLOC 


; UPDATE EXPECTED DMC/KMC ADDRESS 


612 


00260-7 


u l 1037 


001404 






MOV 


(R0), DMCSR 


; GET NEXT DMC/KMC C6R 


bl 3 


902664 


041457 








BEQ 


AUDONE 


; BR IF DOME 


614 


042666 


01370i 


003022 






MOV 


XL0C,R1 


; GET EXPECTED DMC/KMC ADDRESS 


615 


042672 


000/35 








BR 


FY 


;CONTINUE~ 


616 


J0267 4 


1 29243 






NQQEV! 


CNPS 




:QM TlMEOUTs INC R2. Qfcr S', 


617 


il42676 


00Ptt02 








RTI 




•RETURN 


blS 


002700 


045/37 


001252 




err: 


TST 


TEMP3 


fCHECK FLAG IF * TYPE HEADER 


bl9 


002704 


00101 1 








BNE 


1$ 


•SKIP HEADER 


b20 


00274b 


144402 








TYPE 




f TYPEOUT HEADER MESSAGt 


621 


L'027 1 J 


007223 








CONERR 




CONFIGURATION ERR0R1I1! 


b22 


042712 


012/37 


002700 


001 276 




MOV 


lERR, SAVPC 


;SAVE PC FOR TYPEOUT 


623 


■902723 


1 4441 1 








CNVRT 




; TYPE OUT ERROR PC 


621 


V02722 


002770 








ERRPC 






625 


IG02724 


1 444 J2 








TYPE 




; TYPE REST ut HEADER 


626 


342726 


(547277 








CNERR 






627 


03273* 


312737 


177777 


001 iS2 




MOV 


l-l,TEMP3 


;SET FLAG SO IT ONLY GETS TYPED ONCE 


628 


00273b 


010137 


001262 




1$: 


MOV 


R1,SAVR1 


;SAVE Rl hOR TYPEOUT 


629 


U42742 


1 44110 








CONVRT 






634 


£42741 


342/76 








CONTAB 




fTYPE CSR VALUES 


b31 


032746 


3B5/05 








TST 


K5 


;DMC OH KMC ? 


b32 


042754 


0iM 003 








b"t 


J$ 


; BR If KMC 


633 


042/52 


141402 








TYPE 






b34 


42 75 4 


3*7 3 24 








DMCM 






b 35 


iA2 1 5b 


)2 








bK 


4$ 


;CQN'I INUt 
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635 


4427b.) 


1 04402 






3$ : 


TYPE 




637 


C42762 


337333 








KMCM 




638 


032764 


322626 






4tt 


CMp 


(SP)+,(SP)+ 


639 


942766 


000727 








BR 


OK 


640 


002770 


300001 






ERRPCJ 


1 




641 


W02772 


406 


002 






.BYTE 


6,2 


642 


802774 


041276 








SAVPC 




643 


t'32776 


003002 






CONTABS 


2 




644 


003P03 


006 


004 






.BUTE 


6/4 


615 


003002 


003022 








XLOC 




646 


'043004 


306 


002 






.BYTE 


6 , 2 


647 


033006 


001404 








DHCSR 




648 


033010 


007 






DEVTAB ; 


.BYTE 


■, 


649 


03301 1 


017 








.BYTE 


17 


6S0 


03 3 61 1 2 


037 








.BYTE 




651 


03301 3 


037 








.BYTE 


7 


652 


803014 


04? 








.BYTE 


, 


653 


0<}3t)15 


007 








.BYTE 


, 


654 


»43016 


037 








.BYTE 


-. 


655 


0i>3017 


007 








.BYTE 


1 


656 


»03<»2<1 


007 








.BYTE 


■j 


657 




203022 






.EVEN 






658 


043422 


000000 






XLOCl 







6S9 


•03024 


005705 






AUDONE: 


1ST 


R5 


660 


983026 


031005 








BNE 


18 


661 


«03>3O 


012705 


177777 






MOV 


f-l,R5 


662 


033334 


£12700 


001500 






MOV 


f DM. MAP, R0 


663 


903040 


000602 








BR 


AUSTRt 


66 4 


»33042 


012637 


000006 




is: 


MOV 


(5P)+,*»6 


665 


043046 


012637 


000004 






MOV 


(SPJ+»>t4 


666 


003952 


032737 


000010 


001236 




BIT 


#SW03,STRT5W 


667 


343060 


001422 








BEQ 


35 


663 


943062 


1 44402 


006144 






TYPE 


, MNEW 


669 


003066 


005000 








CLR 


R0 


67k) 


043070 


000000 








HALT 




671 


003072 


027737 


176104 


001312 




CMP 


9SHR,SAVACT 


672 


043103 


141404 








BLOS 


28 


673 


1343102 


I 34402 


096005 






TYPE 


, MEKR3 


674 


043106 


000000 








HALT 




675 


0031 14 


Z00776 








BR 


• "2 


676 


033112 


017737 


176064 


001 J06 


2$: 


MOV 


BSWR,DMACTV 


67 7 


343123 


01 3703 


001 306 






MOV 


DMACTV, R0 


b78 


003124 


{40000 








HALT 




679 


033 1 26 


<?12700 


000300 




3$: 


MOV 


#300,R0 


680 


0431 32 


ai2?ai 


000302 






MOV 


#302, Rl 


681 


943136 


010120 






4SI 


MOV 


Rl, (R0) + 


682 


9431 40 


005021 








CLR 


(Rl) + 


683 


0431 42 


022021 








CMP 


CR0)>»CR1) + 


6)14 


033144 


022700 


001000 






CMP 


#1000, Re 


685 
686 


■#.53153 


001372 








BNE 


48 


687 
688 










JTEST START AND 


RESTART 


689 
















694 


033152 


012706 


001200 




.BEGIN; 


MOV 


• STACK., SP 


691 


003156 


013746 


00000c 






MOV 


§#6,-CSP) 



;ADJUST STACK 
;BR TO GET OUT 



;DJ 

;DH 

;0Q 

;DU 

;DUP 

;LK 

;DMC 

]0Z' 

;KMC 



;DMC? 

jBR" IF KMC AND ALL DONE 

;SET R5 TO -1 (KMC) 

; RESET R0 TO START OF TABLE 

jGO DO KMC '5 

; RESTORE LOC 6 

{RESTORE LOC 4 

; SELECT SPECIFIC DEVICES?? 

;BR IF NO. 

; TYPE THE MESSAGE. 

;ZERO DATA LIGHTS 

; WAIT FOR USER TO TELL WHAT DEVICES TO RUN 

; IS THE NUMBER VALID? 

; BR IF NUMBER IS OK. 

; TELL USER OF INVALID NUMBER. 

;5T0P EVERY THING, 

; RESTART THE PROGRAM AGAIN. 

; GET NEW DEVICE PATTERN 

;SHOH THE USER WHAT HE SELECTED. 

{CONTINUE DYNAMIC SWITCHES.' 

; PREPARE TO CLEAR THE FLOATING 

; VECTOR AREA, 300-776 

; START PUTTING "PC+S - HALT" 

;1N VECTOR AREA . 

;POP POINTERS 

; ALL DONE?? 

J BR IF NO. 



;SET UP STACK 
;SAVE LOC 6" 
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-A^R-77 
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PROGRAM INITIALIZATION 


AND START UP. 




692 


•H3162 


013746 


000004 






MOV 


M4.-(SP) 


7SAVE LOC 4 


693 


043166 


0U5000 








CLR 


R0 


7 START AT 


694 


0431 74 


012737 


003234 


000004 




MOV 


#2S,»#4 


J SET UP FOR TIME OUT 


695 


04317b 


045337 


000006 






CLR 


946 


;T0 AUT0S1ZE MEMORY 


696 


043202 


045 720 






68: 


TST 


IR0J + 


;CHECK ADDRESS IN R0 


697 


343204 


C72/00 


157776 






CMP 


#157776, R0 


(IS IT AT LEAST 28K 


698 


W43213 


241374 








BNE 


6$ 


;BR IF NO 


699 


043212 


1b2700 


007776 






SUB 


#7776, R0 


;SAVE 2K FOR MONITORS 


700 


K>d321b 


PI 3037 


001304 




7$: 


MOV 


R0, MEMLIM 


jSTORE MESORY LIMIT 


701 


C43222 


£12637 


000034 






MOV 


(SP)+,»«4 


; RESTORE LOC 4 


702 


003226 


012637 


000006 






MOV 


CSP)+,»»6 


; RESTORE LOC 6 




S33232 


vtiZil i 








BR 


10$ 


;CONIINUE 


704 


iJ4J23 t 


£22626 






28: 


CMP 


(SP)+, CSP)+ 


; ADJUST STACK 


705 


033236 


162704 


030004 






SUB 


#4,R0 


;GET LAST GOOD ADDRESS 


706 


003242 


1627^3 


007776 






SUB 


17776, R0 


;SAVE 2K FOR MONITORS 


Til 


04324b 


022 740 


030000 






CMP 


#30000, R0 


;IS IT 8K? ' 


7U8 


003252 


001361 








BNE 


78 


J BR IF NO 


7k,9 


033254 


k;12700 


037400 






MOV 


137400, R0 


;IF 8K DON'T SAVE 2K 


714 


003260 


000 756 








BR 


76 




711 


003262 


012737 


000340 


177776 


10$: 


MOV 


#340, PS 


;LOCK OUT INTERRUPTS 


712 


003274 


032737 


000004 


001236 




BIT 


#BIT2,STRTSW 


;CHECK FOR LOCK ON TEST 


71 3 


033276 


001411 








BEQ 


18 


;BR IF NO LOCK DESIRED . 


714 


093 U-d 


144402 


006043 






TYPE 


,MLOCK 


; TYPE LOCK SELECTED . 


715 


0333k; 1 


012737 


000240 


003612 




MOV 


# NOP, f TST 


; ADJUST SCOPE ROUTINE. 


716 


033312 


(f 12737 


000240 


003614 




MOV 


#N0P,TTST+2 


;SET UP TO LOCK 


717 


403324 


040406 








BR 


38 


{CONTINUE ALONG. 


718 


4)03322 


313737 


003730 


003612 


1$: 


MOV 


BRW, TTST 


; PREPARE NORMAL SCOPE ROUTINE 


719 


003333 


^13 73/ 


003732 


003614 




MOV 


BRX,TTST+2 


;LOCK NOT SELECTED, SET UP COR NORMAL SCOPE 


724 


00333b 


012737 


010060 


001214 


3$: 


MOV 


t CYCLE, RETURN 


.•START AT "CYCLE" FIND WHICH DEVICE TO TEST 


721 


043344 


032737 


000P02 


001236 


4$: 


BIT 


#SW01,STRTSW 


;IS TEST NO". SELECTED? 


722 


SJ03J52 


301002 








BNE 


5$ 


; BR IF YES 


723 


003354 


104402 


005755 






TYPE 


, MR 


;TYP£ R 


724 


00336^ 




175630 




5$: 


JMP 


9RETURN 


JSTART TESTING 
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725 








726 








727 








72S 








729 








73» 








731 


i.43364 


000005 




732 


003565 


005037 


001234 


ns 


ii<J3372 


105037 


001325 


734 


003376 


005237 


001230 


735 


£03402 


013777 


001230 


#36 


^83410 


1»4402 


005733 


737 


04341 4 


104402 


00b072 


738 


00342 "i 




003546 


739 


td3 424 


1 04402 


006100 


7 4 id 


0)93430 


104411 


003554 


741 


003434 


104402 


006106 


742 


403440 


1 044 1 1 


003562 


74 3 


003444 


1 04402 


0061 1 7 


744 


003450 


1 0441 1 


003570 


745 


J8345 1 


013700 


001322 


746 


?<J3 46d 


&13720 


001230 


7 4 7 


003464 


313720 


001 232 


748 


003470 


fc05337 


001314 


749 


003474 


391017 




750 


903476 


1 1 2737 


000377 


751 


003504 


01 3737 


001310 


752 


0V351 2 


01 3701 


000042 


753 


003516 


001406 




754 


303520 


000005 




755 


303522 






756 


D03522 


004711 




757 


903524 


000240 




756 


04352b 


000240 




759 


00 3530 


300240 




76« 


003532 


000240 




761 


003534 


01 2737 


010060 


762 


003542 


000137 


010060 


76 3 


003546 


000001 




764 


003550 


006 


002 


765 


P03552 


001 404 




766 


K0355 4 


000001 




7b 7 


003556 


004 


002 


769 


033563 


001 3 74 




769 


003562 


300001 




770 


t?035&4 


006 


002 


771 


*03566 


001230 




772 


90357.4 


000001 




773 


003572 


006 


002 


7 74 


S03574 


001232 




775 








776 








777 








778 








779 


to03S76 


E34737 


007606 


780 


903602 


010016 





f END OF PASS 

j TYPE NAME; OF TEST 

; UPDATE PASS COUNT 

f CHECK FOR EXIT TO ACT-11 

J RESTART TEST 



,EOP: RESET 
CLR 
CLUB 
INC 
MOV 
TYPE 
TYPE 
CNVRT 
TYPE 
CNVRT 
TYPE 
CNVRT 
TYPE 
CNVRT 
MOV 
MOV 
MOV 
DEC 
BNE 
MOVB 
MOV 
MOV 
BEG 
RESET 

SENDAU: 

JSR 
NOP 
NOP 
NOP 
NOP 

RESTRT: MOV 
JMp 

XCSR: 1 

.BYTE 
OMCSR 

XVECl 1 

.BYTE 
DMRVEC 

XPASSi 1 

.BYTE 
PASCNT 

XERRt 1 

.BYTE 
ERRCNT 



LSTERR 
ERRFLG 
PASCNT 

PASC«T»»DISPLAY 

,ME?ASS 

,HC5RX 

rXCSR 

,MVECX 

, xvtc 

,MpAS5X 

,XPA&S 

, MERRX 

rXERR 

MII,K,R0 

PASCNT, (R0)t 

ERRCNT, (R0) + 

SAVNUH 

RESTRT 

»37t,QV.FLG 

DMNUH.SAVNUM 

»*42,R1 

RESTRT 



PC.lRl) 

♦CYCLE, RETURN 
CtCLE 

6,2 
4,2 
6,2 
6,2 



;MAK£ THE WORLD CLEAN AGAlH. 

;CLEAR LAST ERROR - PC 

;CLEAR ERROh FLAG 

; UPDATE PASS COUNT 

{DISPLAY PASS COUNT 

i TYPE END PASS 

{TYPE CSR 

•SHOSI IT 

; TYPE VECTOR 

;SHOW IT 

; TYPE PASSES 

;SHOW IT 

•TYPE ERRORS 

;SHOW IT 

}GET POINTER TO PASS COUNT 
•STORE PASSCOUNT FOR THIS DMC11 
; STORE ERROR COUNT FOR THlS'DMCil 
•ARE ALL DEVICES TESTED? " 
jBR IF NO. 

;SET THE QUICK VERIFY FLAG. 
•RESTORE THE COUNT 
;CHECK FOR ACT-11 OR OOP 
; IF NOT, CONTINUE TESTING 
sSTOP THE" SHOW— CLEAR THE WORLD 



I SCOPE LOOP AND INTERATION HANDLER 



.SCOPE! JSR 
MOV 



PC,CKSMR 
R*,tSP) 



JCKECK FOR SOFT SWR 
;SAVE R0 ON THE STACK 
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7Bl 


«»J3604 


032/77 


040000 


175*70 




BIT 


#BITl4«eSWR 


; "LOOP Oh THIS TEST"? 


782 


903612 


001 i07 






ttst: 


BEO 


IS 


JBR IF NO. "(IF LOCK SW01=l; THIS 


783 


P03614 


000437 








BR 


3$ 


;GOTO 3$ (IF LOCK SN01»1; THIS 


784 


003616 


0M5 737 


003734 






1ST 


DONE 


;WAS TKCSR DONE SET? 


785 


B03o22 


G01434 








BEQ 


35 


•br if no clocked on test) 


786 


093624 


3^5037 


003734 






CLR 


DONE 


•YES, CLEAR FLAG 


787 


00363* 


000415 








BR 


2$ 


;G0 TO NEXT TEST 


788 


J03632 


332777 


004000 


175342 


is: 


BIT 


#SM11,»SWR 


; DELETE ITERATION? (QUICK PASS) 


789 


603640 


E010U 








BNE 


2$ 


|BR IF YES 


790 


003642 


105 7 37 


001327 






TSTB 


QV.FLG 


; HAVE PASSES BEECOMPLETED? 


791 


003646 


001406 








BEQ 


2$ 


; BR IF QUICK PASS. 


792 


£03650 


L052 37 


001224 






INC 


LPCNT 


; UPDATE ITERATION COUNTER 


793 


80365 4 


023737 


001224 


001222 




CMP 


LPCNT,ICOUNT 


; ARE ALL ITERATIONS DONE?? 


794 


903662 


101414 








BLOS 


38 


;BR IF NOT YET 


795 


U03664 


105037 


001325 




2$: 


CLRB 


ERRFLG 


; PREPARE FOR NEW TEST 


796 


003670 


0J5037 


001224 






CLR 


LPCNT" 


; START ICUUNTER AT 


797 


0O3674 


005037 


001220 






CLR 


LOCK 




798 


003700 


012737 


000020 


001222 




MOV 


*20,ICOUNT 


; RESET ITERATIONS 
j GET NEXT TEST 


799 


0.J3706 


013737 


001216 


001214 




MOV 


NEXT, RETURN 


800 


003714 


011600 






3$: 


MOV 


(SPJ,R0 


;POP R0 OFF" OF THE STACK 


821 


»037i6 


022626 








P0P2SP 




; FAKE AN "RTI" 


802 


003720 


013701 


001404 






MOV 


DMCSR,R1 


;R1 CONTAINS BASE DMC ADDRESS 


8»3 


003724 


000177 


175264 






JMP 


^RETURN 


;G0 DO THE TEST 


804 


'J037 30 


0C1407 






BRW: 


1407 




805 


3037 3 2 


0»!0437 






brx: 


437 






806 


003734 


000000 






DONE: 










807 



808 












JCHECK 


FOR FREEZE ON 


CURRENT DATA 


809 


















810 


















811 


003 736 


004737 


007606 




.SC0P1 I 


JSR 


PCCKSHR 


,-CHECK FOR SOFT SWR 


812 


003742 


&32Z77 


001000 


175232 




BIT 


#SW09,3SWR 


;IS SW09*1(SET)? 


813 


00375,1 


301 405 








BEQ 


IS 


;BR IF NOX SET. 


814 


003752 


005737 


001220 






1ST 


LOCK 




815 


00375o 


UJ1402 








BEQ 


1$ 




816 


B03760 


013716 


HH122H 






MOV 


I.OfK - f SOI 


• nnTfl Tur innnict i> j.nrx 


817 
818 


U037d4 


0J0002 






1$: 


RTI 




;G0 BACK. 


819 












; TELETYPE OUTPUT ROUTINE 


820 


















821 


















8 22 


003 7t>6 


010546 






.type: 


MOV 


R5,-(SP) 


;SAVE R5 ON THE STACK . 


823 


3ts3 7 7H 


017605 


000002 






MOV 


62(SP),R5 


;GET ADDRESS OF MESSAGE. 


824 


00377 4 


1)62/66 


000002 


000002 




ADD 


*2,2(SP) 


>POP OVER ADDRESS. 


825 


00400,,! 


C05 737 


010^16 




4s: 


TST 


SWFLG 


;SOFT St4R HbSSAGE? 


826 


0040.56 


0B1W04 








BNE 


1$ 


;1F YES TYPE IT OUT hEGARDLESS OF SW12 


827 


001010 


i-32/77 


010000 


175164 




BIT 


»SW12,BSWR 


; INHIBIT ALL PRINT OUT? ? 


828 


30i'U6 


tt01012 








BNb 


3S 


;BR IF NO PHIM OUT WANTED ISW12=1) 


h29 


0041*20 


105715 






is: 


TSTB 


(R5) 


;1S NUMBER MINUS? (MSBsl (bli 1 ) ) 


8 34 


«04l?77 


1'*0H02 








BPL 


2S 


; BR IF NUMBER IS PLUS 


831 


0-14.5 H 


1 <>4402 


005672 






TYPt 


, HCRLF 


;TYPE A CH/LF • 


832 


0a4;"3H 


U5/77 


1/515 1 




2S: 


TSTb 


GTPCSR 


; TTY READY? 


833 


044»j34 


150375 








BPL 


2S 


;BR IF NO. 


83» 


'V040 3o 


1 12577 


175150 






MOVB 


(R5J+*PTPDBF 


; PRINT CURRENT CHAR. 


8 35 


J04H42 


jai 357 








bMt 


4$ 


: If NOT ZcRO KEEP PRINIlhn,; 
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837 


344446 


1303002 








RTI 




H38 
















839 
















840 


404050 


«10J4b 






.INSTH1 


NOV 


R3,-(SP) 


841 


■»04052 


014446 






MOV 


R4, -(SP) 


842 


J44054 


317637 


030004 


0S14072 




MOV 


P4(SP) , .MSG 


843 


134062 


Jh2 /06 


000002 


000404 




ADD 


I2,4<SP) 


844 


904074 


104402 






. insti : 


TYPE 




845 


U44072 


000040 













846 


H0447 t 


k)12704 


007502 




MOV 


1 INBUF, R4 


84 / 


944100 


012703 


000007 










846 


b04104 


105777 


175074 




1 j ; 


TSTB 


0TKCSR 


8 49 


t>a41 10 


140375 








BPL 




85k) 


l(D41 12 


117714 


175070 








BTITDBR. r D<1 


851 


d04116 


1 42714 


000200 






bICB 


1200, (P4) 


B52 


£44122 


122427 


000015 






CMPB 


(R4)+»#15 


853 


1204126 


001417 








BEQ 


INST R2 


854 


/.94130 


105777 


175054 




2$ i 


TSTB 


JTPCSR 


855 


344134 


104375 








BPL 


28 


856 


si04136 


017777 


175044 


175046 




NOV 


»TKOBR f 9TPDBR 


857 


1/04144 


005303 








DEC 


R3 


858 


904146 


£01356 








BNE 


1$ 


859 


904 150 


312604 








MOV 


(SP)t»R4 


860 


404152 


U12603 








NOV 


(SP)+»R3 


861 


004154 


1 44402 


005666 




, INSTt: 


TTPE 


t MQM 


862 


04416.1 


010346 








MOV 


R3,-ISP) 


863 


044162 


HI 0446 








NOV 


R4,-(SP) 


864 


£44164 


040741 








BR 


.INSTI 


865 


044166 


012604 






1NSTR2 s 


MOV 


(SP5+,R4 


866 


004170 


012603 








MOV 


(SP)+,R3 


867 


434172 


£00402 








RTI 




868 
















86 9 












J CONVERT ASCII STRING 


870 
















871 
















872 


0441 74 


014546 






.pakam: 


MOV 


R5,-(SP) 


873 


4441 76 


910446 








MOV 


R4,-(SPj 


874 


C04200 


016605 


000004 






NOV 


4CSP),R5 


875 


404201 


012537 


004364 






MOV 


(R5)+»L0LlM 


876 


(■Ci210 


K12537 


004366 






MOV 


(R5J+.HILIM 


87 7 


«04214 


312537 


004370 






MOV 


(R5jt»DEVADR 


878 


U04220 


112537 


004372 






MOVB 


CR5)*,L0BITS 


879 


C04224 


1 12537 


004373 






MOVB 


CR5)+f ADRCNT 


8 84 


004239 


010566 


000004 






MOV 


R5,4(SP) 


861 


£04234 


C05005 






PARAMl | 


CLR 


R5 


es2 


i'04236 


Kl 2704 


047502 






MOV 


»INBUF,R4 


883 


¥44242 


122714 


090015 






CNPB 


#15. (R4) 


884 


i '34246 


041420 








BEQ 


PARERR 


885 


3042SH 


1 21427 


000060 




181 


CMPB 


(R4),#60 


886 


4/442S4 


BB2415 








BLT 


PARERR 


887 


304256 


121427 


000067 






CMPB 


(R4)>«67 


888 


044262 


003012 








BGT 


PARERR 


bd9 


U04264 


142714 


000060 






BICB 


160, CR4) 


892 


J04270 


152405 








BISB 


CR4J+.RS 


891 


804272 


122714 


000015 






CMPB 


#15»(R4J 


892 


•04276 


001406 








BEQ 


LIMITS 



;G0 HOME 



JSAVE R3 ON STACK 
;SAVE H4 ON STACK 



j RESTORE R4 
; RESTORE R3 
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893 


004 304 


LB6 305 






ASL 


RS 






894 


U04302 


['46305 






ASL 


RS 






895 


004304 


046 305 






ASL 


R5 






8 36 


ft043e6 


J00764 






BR 


IS 






897 


00131(1 


1 04404 




PARERR: 


INSTER 








898 


T04312 


940/50 






BR 


PARAM1 






899 


















900 










JTEST 


TO SEE IF NUMBER 


IS NITHIN, 


LIMITS 


901 


















902 


















9i3 


5J04314 


820537 


004366 


limits: 


CMP 


R5,HILIM 






9!M 


004 324 


141 373 






BHI 


PARERR 






9i'5 


'.'.'13;; 


J'2^5 37 






CMP 


K5,LGLi« 






906 


£04326 


103770 






BLO 


PARERR 






947 


304330 


1 33/05 


004372 




BITB 


LOBITS, R5 






948 


W04 33 1 


i>0l 365 






BNE 


PARERR 






909 


















914 
911 










; STORE 


NUMBER AT SPECIFIED ADDRESS 


91 2 


904336 


,M3704 


004370 




MOV 


DEVADR, R4 






91 3 


004342 


010524 




i«: 


MOV 


R5,CR4)+ 






914 


i»i 434 4 


462705 


000002 




ADO 


#2,RS 






915 


004 350 


14533/ 


004373 




DECB 


ADRCNT 






916 


CW4 354 


941372 






BNE 


IS 






917 


1*04 356 


012604 






MOV 


(SP)+,R4 






918 


004360 


012605 






MOV 


(SP)t,R5 






919 


004362 


k,J0002 






RTI 








920 


l>04364 


300000 




LOLIMl 


e 








921 


M4 3fcb 


000400 




HILIMt 


e 








922 


004 370 


000000 




DEVADR: 











923 


B04 3 7 2 


300000 




LOBITS: 











924 




P04373 




. AORCNTa 


LOSITS+i 






925 


















926 










JSAVE 


PC OF TEST THAT 


FAILED AND 


K0-R5 


927 


















92B 


















9i9 


004374 


016637 


000004 001276 


.SAV05I 


MOV 


4(SP)'SAVPC 


2 SAVE R7 


IPC) 


930 


















931 










;save 


R0-R5 






932 


















933 


4504402 


0U537 


001272 


SV05: 


MOV 


R5,SAVR5 


;SAVE R5 




934 


I 44406 


f/1 4437 


001270 




MOV 


R4,SAVR4 


,-SAVE R4 




935 


«44412 


41 S33 37 


001266 




MOV 


R3,SAVR3 


;SAVE R3 




936 


*0441fi 


*1023Z 


001264 




MOV 


R2,SAVR2 


(SAVE R2 




937 


dfc4422 


.-.10137 


001262 




MOV 


Rl ,SAVR1 


;SAVE Rl 




93* 


004426 


bl0V>37 


001260 




MOV 


K0,SAVR0 


;5AVE R0 




939 


«04 43 2 


JD0042 






RTI 




{LEAVE. 




940 
















941 










1 RESTORE H0-R5 






942 


















9 13 


t'tiltjt 


!> 1 3 7 4 


BO) 260 


. RES05 : 


MOV 


SAVR0,R0 


; RESTORE 


H0 


944 


104 a 4 .1 


?l 3 Ml 


001262 




MOV 


SAVH1,R1 


; RESTORE 


Kl 


9 15 


<?o1 44 4 


«U7a2 


0U1 764 




MOV 


SAVH2,R2 


; RESTORE 


K2 


916 


i-4 415v 


HI S /« 1 


001 266 




MOV 


SAVH3, HJ 


; RESTORE 


H3 


M47 


•V« 15 » 


.'I *7v«4 


lull } 7.1 




MOV 


SAVH4, R4 


; RESTORE 


H4 


M 


■J 04 460 


•1 ! 3 7 .< 5 


tF'H7 72 




MOV 


SAVH5,R5 


; RES10k> 


H5 
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949 

951 
95 2 



004464 033002 



RTI 



;LEAVE 



JCONVERT OCTAL NUMBER TO ASCII ANU OUTPUT TO TELEPRINTER 
, . ... ... - 



954 


J04466 


104402 


005b72 




.convr: 


TYPE 


» MCRLF 


955 


6)04472 


£10046 






.CNVRls 


MOV 


R0c-(SP) 


95b 


1>0447 4 


31014b 








«0¥ 


R1,«(5PJ 


957 


604476 


01^346 








MOV 


R3,-(3P) 


958 


804500 


010446 








MOV 


R4,-(SPj 


959 


004502 


010546 








MOV 


R5,-CSP) 


9b.} 


304504 


317601 


000012 






MOV 


012(SP)rRl 


96i 


-•o45i-j 


ab2766 


000002 


000012 




ADD 


t2, 12CSP} 


9b2 


fc04516 


012137 


004710 






MOV 


CRD + , WRDCNT 


963 


0045 2 2 


! 12137 


004712 




ISt 


MOVB 


CHI j+,CHRCNT 


964 


BU4526 


112137 


004713 






MOVB 


(RJ)+,SPACNT 


965 


004532 


iM 3137 


004714 






MOV 


?(Rl)+f BINHRO 


9bb 


004536 


122737 


000003 


004712 




CHPB 


I3,CHRCNT 


967 


;l0454t 


001003 








BNE 


2S 


964 


J04546 


042737 


177400 


004714 




BIC 


*177400/BINWRD 


969 


£04554 


J! 3704 


004714 




2S : 


MOV 


BINWRD, R4 


970 


004560 


113705 


004712 






MOVB 


CHRCNf «R5 


971 


1704564 


012700 


001416 






MOV 


#TESP»R0 


972 


304570 


010403 






3$: 


MOV 


R4,R3 


973 


004572 


£42703 


177770 






BIC 


#177770»R3 


974 


7.04576 


062703 


000060 






ADO 


#060, R3 


975 


CU4602 


1 10320 








MOVB 


R3, CR0J + 


976 


004604 


000241 








CLC 




977 


004606 


£06004 








ROR 


R4 


978 


f»0461*J 


000241 








CLC 




979 


C04612 


006004 








ROR 


R4 


98«> 


($04614 


000241 








CLC 




981 


£04616 


406004 








ROR 


R4 


982 


304620 


005305 








DEC 


R5 


983 


J04622 


001362 








BNE 


3* 


984 


004624 


312703 


097544 






MOV 


tMDATA, R3 


985 


004630 


114023 






4$: 


MOVB 


-CR0)»CR3)+ 


936 


U04632 


105337 


004712 






DECB 


CHRCNT 


987 


'•34636 


001374 








BNE 


4S " 


988 


»04640 


105737 


004713 






TSTB 


SPACNT 


989 


004644 


001405 








BEQ 


6S 


990 


1*046 46 


1 12723 


000040 




5$: 


MOVB 


*040»(R3)+ 


99i 


$$04652 


S05337 


304713 






DECS 


SPACiif 


992 


<>04656 


001373 








BNE 


5$ 


993 


004660 


105013 






6$: 


CLRB 


CR3) 


99 4 


004662 


104402 


007544 






TYPE 


, MDJITA 


995 


i>04666 


205337 


004710 






DEC 


WRDCNT 


996 


t'04672 


091313 








BNE 


IS 


997 


004674 


(J12605 








MOV 


(SP)+,R5 


998 


J04675 


£12b04 








MOV 


CSP)t,R4 


999 


904790 


«12b03 








MOV 


csp;+,R3 


lit Kill 


004732 


012601 








MOV 




1001 


004704 


01260H 








MOV 


(SPj+,R0 


1002 


004706 


900032 








RTI 




1003 


004719 


000030 






WRDCNT: 







1004 


K04712 


000000 






CHRCNTs 
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, ETC) 


10C5 




B04713 




SPACNTsCHRCNT+l 






1006 
10»J7 


»04714 


000000 




binwrd: 









10fe8 
















1 tv>9 










; TRAP DISPATCH SERVICE 




1010 










•ARGUMENT OF TRAP IS EAT 


RACTED 


1011 










; AND USED AS OFFSET TO OBTAIN POINTER 


1012 
101 5 










;T0 SELECTED SUBROUTINE 




1014 


t94716 


011646 




.trpsr: 


MOV 


CSP},-(SP) 


; GET PC OF RETURN 


1015 


004720 


Ib2716 


000002 




SUB 


«2,(SP) 


f«PC OF TRAP 


101b 


D04724 


017616 


000000 




MOV 


e(sP),(sp) 


; GET TRP 


1017 


t»047 30 


006316 




TRPOM 


ASL 


tSP) 


.-MULTIPLY TRAP ARG BY 2 


1018 


K04732 


i)42716 


177001 




BIC 


*177001,(SP) 


;CLEAR UNWANTED BITS 


1019 


904736 


962/16 


001330 




ADD 


#.TRPTAB,(SP) 


; POINTER 10 SUBROUTINE ADDRCSS 


1020 


fc04742 


til7616 


000000 




MOV 


0(SP),CSPj 


SUBROUTINE ADDRESS 


1021 
1022 


C-04746 


000136 






JMP 


9CSPJ+ 


•GO TO SUBROUTINE 


1023 










; ERROR 


HANDLER 




1024 
















1025 
















1026 


O0475U 


504737 


807606 


.HLT; 


JSR 


FC,CKSWR 


f CHECK FOR SOFT S"R 


1027 


004754 


C32777 


010000 174220 




BIT 


tSHi2>9SHR 


;BELL ON ERROR? 


1028 


&04762 


0i!1406 






BEQ 


XBX 


;BR IF NO BELL 


1029 


B04764 


105777 


174220 




TSTB 


8TPCSR 


;TTY READY , 


1030 


004770 


1.10003 






BPL 


XBX" 


;DON'T HA IT IF TTY NOT READY. 


1031 


»<04772 


112777 


000207 174212 




MOVB 


*207rPTPDBR 


;PUSH A BELL AT THE TTY, 


1032 


C0500P 


C32/77 


020000 174174 


xbx: 


BIT 


#SW13,»SWR 


; DELETE ERROR PRINT OUT? 


1033 


i>05006 


£01105 






BNE 


HALTS 


;BR IF NO PRINT OUT WANTED. 


1034 


t?050W1 


321637 


001234 




CMP 


(SP},LSTERR 


;WAS THIS ERROR FOUND LAST TIME? 


1035 


K05314 


&01404 






BEO 


IS 


;BR IF YES 


1036 


C05016 


61 1637 


001234 




MOV 


(SP),LSTERR 


; RECORD BEING HERE 


1037 


i.05022 


1 05037 


001325 




CLRB 


ERRFLG 


; PREPARE HEADER 


1038 


0W5026 


1H4406 




is: 


SAV05 




;SAVE ALL PHOC REGISTERS 


1039 


!t.0503n 


i;ilb05 






MOV 


(SP),R5 


; GET THE PC OF ERROR 


1040 


l;05u32 


162/05 


000002 




SUB 


»2,R5 


;GET ADDRESS OF TRAP CALL 


1041 


605*36 


J11504 






MOV 


CR5 J -R4 


: GET HLT iNSTHUCTIQN 


1042 


105040 


00b304 






ASL 


R4 _ 


•MULT BY IWO 


1043 


»05042 


t»bl604 






ADD 


(R5J.R4 


; DOUBLE II 


1044 


i 05.J44 


006304 






ASL 


R4 


;MULT AGAIN 


1045 


1.050 4 5 


342764 


177*01 




BIC 


1177001, R4 


; CLEAR JUNK 


1046 


C05052 


fb2/04 


027602 




ADD 


«.ERRTAB,R4 


;GET POINTER 


1047 


905056 


P12437 


005172 




MOV 


( R4) +, ERRMSG 


f GET ERROR MESSAGE 


1048 


005062 


012437 


005204 




MOV 


(R4)+# DATAHU 


;GET DATA HEADRER 


1049 


1T05066 


311437 


005216 




MOV 


( R4) r DATABP 


; GET DATA TABLE 


1050 


t>05k>72 


105/37 


001325 




TSTB 


ERRFLG 


;TYPE HEADREER 


1051 


005076 


U014>)3 






BEQ 


TYPMSG 


; BR IF YES 


1052 


.)05100 


Ct-5 7 37 


005216 




TST 


DATABP 


;DO£S DATA TABLE EXIST? 


1053 


005101 


J'-01010 






BNE 


TYPOAT 


J BR IF YES, 


10S1 


W05106 


1 04402 


k/05672 


TYtHSO: 


TYPE 


, MCRLF 




1055 


K>05 1 1 2 


1 ->44 t ;2 


005672 




TYPE 


, MCHLF 




1056 


005 1 1 6 


1)057 37 


SHU220 




1ST 


LOCK 




11)57 


U05I 22 


201 102 






BEO 


IS 




105* 


005124 


101402 


0t)ol42 




TYPE 


, MASTER 




1059 


i.05130 


1 44402 


<Mbl30 


is: 


TfPE 


,*TSTN 




1 i-60 


■»5! 34 


1 t. 1 1 U 


W05 3 3'.' 




Cl»VRI 


,X1STN 


;ShOfc ii 
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1001 


.H5140 


1 04402 


006217 






TYPE 


, MERRPC 


; TYPE PC. 


1062 


t>0514 4 


lu4411 


005322 






CNVRT 


> ERTAB0 


;SHO* IT 


lBb 3 


*0515O 


1U4402 


005672 






TYPE 


•NCRLF 


;GIVE A CR/LF 


ltobl 


U05154 


H2737 


177777 


001 12b 




MOVB 


*"1 (ERRKLG 


;N0 MORE HEADER UNLESS NO DATA TABLE 


lHb5 


f 051 62 


U05/37 


00517 2 






1ST 


ERRMSG 


;IS THERE AN ERROR MESSAGE? 


1*66 


i»l"516b 


L>*1402 








BEO 


WRKO.FM 


; BR IF NO. 


1(967 


U0517.1 


1044P2 








TYPE 




; TYPE 


t06d 


t>05172 


t)«<0000 






EBRMSG: 







; ERROR MESSAGE 


1869 


(«05t74 








WRKO.FMt 






107-J 


005174 


E05737 


005204 






TST 


DATAHO 


; DATA HEADER? 


1071 


fc05200 


3014P2 








BEQ 


TYPOAI 


;BR IF NO 


1072 


005292 


104402 








TYPE 




; TYPE 


1073 


£>05 204 


300B00 






DAIAHOI 







; DATA HEADER 


1147 4 


005206 


0«>5737 


005216 




TYPDATi 


TST 


DATABP 


> DATA TABLE? 


lk)75 


C'05212 


& 01 402 








BEQ 


RESREG 


; BR IF NO. 


1076 


150521'! 


104410 








CONVRT 




(SHOW 


1077 


P05216 


£00000 






OATABPt 







; DATA TABLE 


1078 


005220 


104407 






RESREG: 


RES05 




; RESTORE PROC REGISTERS 


1079 


005222 


322/37 


003522 


000042 


HALTS! 


CMP 


f tENDAD,»t42 


;IF ACT-11 AUTOMATIC MODE, HALTI 1 


1080 


£05230 


e<>1403 








BEQ 


1* 




1081 


tf05232 


S505777 


173744 






TST 


0SBR 


; HALT ON ERROR? 


1082 


S105236 


1 00005 








BPL 


EXITER 


J BR IF NO " HALT ON ERROR 


1083 


P05240 


310046 






1 $ ! 


PUSHRe 




;SAVE RO 


1084 


005242 


016603 


000002 






MOV 


2CSP),R0 


;SHOW ERROR PC IN DATA LIGHTS 


1085 


W05246 


900000 








HALT 




; HALT 


in 86 


S05250 


01260P 








POPR0 




; GET RO 


1087 


005252 


0»?5237 


001232 




EXITEK: 


INC 


ERRCNT 


, UPDATE EKROR COUNT 


1088 


t<05256 


032777 


000400 


173716 




BIT 


ISW08,»SWR 


; GOTO TOP OF TEST? 


1089 


005264 


001007 








BNE 


1* 


;BR IF YES 


1090 


005266 


932777 


002000 


173/06 




BIT 


ISN10,»SWR 


;GOTO NEXT TEST? 


1091 


005274 


001411 








BEQ 


2» 


;BR IF NO 


1092 


005276 


El 3737 


001216 


001214 




MOV 


NEXT, RETURN 


;SET FOR NEXT TEST 


1093 


005 30 4 


•512706 


001200 




1SI 


HOV 


f STACK, SP 


fRESET SP 


1094 


095310 


013701 


001404 






MOV 


DHCSR,R1 


;S£T UP Rl 


1095 


905314 


040177 


173674 






JMP 


9RETURN 


; GOTO SPECIFIED TEST 


1 096 


005320 


tf£0002 






2S1 


RTI 




"RETURN 


1097 


005322 


00000t 






ERIAB0J 


1 






1098 


B05324 


006 


002 






.BYTE 


6,2 




1099 


045326 


001276 








6AVPC 






1100 


(•05 330 


000001 






XTSTNt 


1 






1101 


C05 332 


003 


002 






.BYTE 


3,2 




1102 


«»<>5334 


(•012 26 








TSTNO 






1103 
1 104 












J ENTER 


HERE ON POWER 


FAILURE ' 


1 1 #5 


















llic'6 


















1107 


005336 








.PFAILI 








1 108 


K05 336 


012737 


005350 


000024 




HOV 


(RESTART, 24 


;SET UP FOR PONER UP TRAP 


1 1«9 


905344 


£ 00003 








HALT 




JHALT ON POWER DOWN NORMAL 


1 1 in 


V05J46 


000777 








BR 




1111 


















1112 
1113 












; PROCESSOR HILL TRAP 


HERE NHEN POWER IS RESTORED 


1114 


605350 








RESTART 








1115 


k.05350 


£12737 


005336 


000024 




MOV 


I.PFAIL,24 


;SET UP FOR POWER FAILURE 


1116 


fc«>5 356 


012706 


001200 






HOV 


1 STACK, SP 


; RESET THE STACK POINTER 
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111' 


D05362 


01 3/01 


001404 




1118 


005366 


305P37 


001416 




1119 


005372 


U05237 


001416 




1120 


t 05 37b 


0W1375 






1121 


O05 403 


104402 


005675 




1122 


C05434 


104411 


005430 




1123 


005U0 


10503/ 


001325 




I 124 


H05 41 4 


0H5037 


001234 




1125 


P0542«l 


B95011 






1126 


005422 


1H4412 






1127 


1)05424 


0H0177 


173564 




1 128 


U0543" 


000001 






1129 


«05432 


303 


002 




1130 


»05431 


I?4l226 






1131 










1132 


t'05436 








1133 


005 436 


012777 


000020 


173746 


1134 


•905444 


104414 






1135 


00544c 


121111 






1136 


D0545C 








1137 


OK5*5(» 


104414 






11 38 


1405 452 


121224 






1139 


B05454 


032777 


000020 


173730 


1 1 40 


005 462 


001772 






1141 


005 464 


000002 






1142 










1 143 


00546b 








1144 


005466 


152/77 


40 100 


173712 


1145 


t 05474 


142777 


000300 


173/04 


1146 


905502 


000002 






1147 










11 18 


V05504 








1149 


J05504 


152/77 


000002 


173674 


1150 


fo<»55l2 


513677 


173676 




1151 


B05516 


1*62746 


000002 




1152 


J05522 


1532 /77 


000 t 00 


173452 


1153 


M0S5 30 


991401 






1154 


9055 3 2 








1155 


005534 


152/77 


000003 


173644 


1156 


005542 


142/77 


000007 


173636 


115/ 


•>05550 


Uttdi'02 






11?B 
1159 


V05552 








1 160 


305552 


01 3637 


0*1416 




1161 


005556 


06 2 7 46 


00000 2 




1162 


C05562 


152/77 


000020 


173616 


1163 


00557(1 


027 /77 


17361U 


173606 


1164 


805576 


1 42777 


000020 


1 '3b02 


1165 


V>0S6t94 


U35 137 


001416 




1166 


00561 .' 


k>01 364 






lib/ 


'105612 


0i10002 






1 168 


10561 4 


8tf000l 






1169 










1 1 7«) 


',*561f: 








1171 


vti561b 


1)1 3-537 


'VU1I6 




1172 


<*056 2 2 


ib<> 746 


0001)02 
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HOV 

CLR 

INC 

BNE 

TYPE 

CNVRT 

CLRB 

CLR 

CLR 

HSTCLR 

JMP 

1 

3. 2 
TSTNO 



.delay: 



HOV 

ROHCLK 
121111 

ROHCLK 

121224 

BIT 

BEQ 

RTI 



.MSTCLRI 



BISB 
BICB 
RTI 



BISB 

MOV 

ADD 

BIT 

BEQ 

HALT 

BISB 

BICB 

RTI 



.dataclk: 



DMCSR, Rl 
TEMP 
TEHP 
.-4 

, MPFAIL 
, PFTAB 

ERRFLG 

lsterr 

(Rl) 
0RETURN 



; RESTORE HI 
; READY FOR TIMMER 
7PLUS ONE TO THE IIMERl 
;BR IF MORE "TO GO 
;TYPE THE MESSAGE 
J TELL WHAT TEST TO RETURN TO, 
START CLEAN 



CLEAR MAlNT BITS 
; START CLEAN UP OF DEVICE 
J START DOING THAT TEST AGAIN, 



;NEXT WORD IS INSTRUCTION, KOMCLK PC>5304 
;POKE CLOCK DELAY BIT 



#BIT4,*DMP04 
It 



;NEXI WORD IS INSTRUCTION, 

;P0RT4.1BUS*"11 

; IS CLOCK BIT SET? 

; BR IF NO 



KOMCLK PC*5304 



»BIT6,»DMCSRH ;SET MASTER CLEAR 
>BIT61B1T7,«DHCSRH (CLEAR MASTER CLEAR AND RUN 
; RETURN 



IBIT1,»DMCSRH ;SET ROMI 

t (SP)+,»DMP06 ;LOAD INSTRUCTION IN SEL6 
12,-CSP] ;ADJUSI STACK 

#SW0b,»SHR ; HALT IF SW06 *1 

11 ; BR IF SH06 «0 

; HALT BEFORt CLOCKING INSTRUCTION 
IBIT11B1T0, (IDHCSRH |CLOCK INSTRUCTION 
IBIT2IBlTllBIT0>»DHCSRH" ; CLEAR ROHO, ROMi, STEP 



NOV 


»(SP)+,TEMp 


JPUT TICK COUNt IN TEMp 


ADD 


#2,-(SP) 


1 ADJUST STACK 


BISB 


*BIT4,9DHCSRH 


;SET STEP LD 


CMP 


l>DMCSR,WDMCSR 


; WASTE TIME 


BICB 


IBIi4,»DMCSRH 


(CLEAR STEP LU 


DEC 


TEMP 


; DEC TICK COUNT 


BNE 


1$ 


;BR IF NOT DONE 


RTI 




; RETURN 


.BLKtl 






MOV 


»lSP)*rTEMp 


;«OVE COUNT TO TE^P 


ADD 


»2,-(SP) 


.•ADJUST STALK 
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PAGE: 0040 





00S6 26 








IS S 






117 4 


£35626 


1 04 414 












1175 


005b 30 


3 6 4 








02 1364 


*P0RX4»IB^S* REGll 










173552 






1 <|PUnruf , io run ^vU^n Oil ^.ijCiAKf 


1177 


005640 


3*1772 








BEQ 


IS ;BR IF YES 


Il7e 


S05642 








%%% 








0056 42 


t 0441 4 










J hlax Bvnu iw iNDiivUi, nun f nun^un rc B ?JW 


1183 


#0 5644 












■ d^dti rfificv acnit 






032777 


014010102 






RTT 


S "5 SriKBI'iM .TC Dflii ' f* 1 i.Al"' it HTT Cfa'T? 

t <r cyniru* ? fun ^uuv.n © a i i f 


- : n , 

'!° 


£0565 * 


** * ' 








B j"p 

n Jt 


Ofi •□D TF VCC ~ 
49 f Dt\ 1" ILa 




19195656 




WW J. 1 D 








TETUD . r\CT r*nilN'T l 


1184 




001 36l 








BNF 




1185 
• " 8 b 


M05664 










DTT 


• DPTI1DN 


1187 


005666 


020040 


00007 7 




MQM* 




/ * / 


1 2 ) 


005672 








MCRLF • 


* ASCIZ 




( 2 3 


005675 


377 


053520 


020 1 2 2 


HPFAIL: 


• ASCZZ 


<377>/PWR FAILED RESTART AT TEST / 


(2) 


£05 7 3 3 


377 


0471 05 


0201 04 


HEPASS: 


■ASCIZ 


<37?> /END PASS DZDMG / 


C 2 ) 


4*05755 


377 


0001 22 






. A SC 1 Z 


<377>/R/ 


C 2) 


005 7b G 


047 3 7? 


0201 1 7 


042504 


HERP2 I 


ASCIZ 


^37'7^/NO DEVICES PRESENT / 


( 2 ) 


306005 


377 




052523 


MERR3 X 


ASCIZ 


<377>/IhSUFFICIENT DATAi/ 


( 2 ) 


£0603 1 


377 


042524 




MTSTPC 3 


•ASCIZ 


<377>/TEST PC*/ 


t2) 


00604 i 


377 




04550 3 


MLOCKS 




<377>/I*OCK ON SEIiECTEO TEST/ 


( 2 ) 


00607 2 




035 122 


00004$ 


MCSRX5 


ASC I Z 




( 2 ) 


f 106 1 00 


^42526 




000040 t 


H V EC X S 




/VEC^" 




(J0 6 i 6 


040520 




act Gac 
BD 1 3(03 


MPASSX 1 


*»«* T7 


/rAOobOi / 


f 91 






"to } 7? 


^* t J.! i 


MERRX X 




/CiKrwnO! / 




006 130 


042524 


052123 


047040 


HTSTN t 




/tcjcp ' uft • y 
/ iboi HU J / 


i 9i 




300052 












r 5) 
# 1 1 


auc I 1,1 




W J * 1 «3D 


05 1440 


HN£H" 


' /* ' 


yfl-iS /C(TT» CWTTPH dPC TCl nMTl 1 *C DKCTDPD if'TiVF / 
\J / f //obi 0«*l^ n tvEiV IV U"^. J J O UbdiKbL' 1 * T C< ( / 






1 20 




000040 


MffODDf • 




/PC I / 


i >i 


WW £4 t 




020040 


020040 


XHEADl 


* ASPIT 




(2) 


006 263 




020040 


020040 








( 2 ) 






050040 






acr TT 


%21<^/ rV. von oiAll olAW ol«ii/ 


( 2 ) 


006 374 


026777 




026 455 






<377>/***w»* mmmmmmf 




*J06 45 


04 4 377 




046440 






<3773>/HOW MANY OMCtl'S TO BE TESTED?/ 


( 2 ) 


4TtfOJ l to 




0^1 123 


040440 


csr' 


* ASCIZ 




(2) 


£#6526 


053377 


041505 


047524 


VEC 2 


ASCIZ 


% j / / / / w &v lvn nuiJKZtOO t / 


( ? ) 


>jy6547 


377 


05 1 1 02 


050040 


prio: 


•ASCIZ 


^37?^/BR PRIORITY LEVEL? (4r5«6#7^?/ 


12) 


006606 


044777 


0201 06 


046504 


CRAMj 


• ASCIZ 


<377>/IF DMC HAS CRAM (^8204) T1PE II* CROM 8200 ) TXPE n H m 


(2) 


fc' 06704 


053/77 


044510 


0441 03 


MODUS 


•ASCIZ 


<37"?>/WHlCH^LlNE UNIT? IF NONE TYPE'"N"r IF"MQ20i TYPE "j","If M 


(2) 


CJ07*M & 


05 1 7 7 ? 


044527 


041524 


LINE: 


•ASCIZ 


<377>/SWITCH PAC# l (DDCMP LINE t)?/ ~ 


12) 


■50705 4 


$5 1 777 


044527 


041524 




•ASCIZ 


<377>/SWlTCH PACI2 (BH873 Bt50T ADD)?/ 


(2) 


vv 7 1 1 4 






044 124 


CONNS 


, ASC I Z 


<37?>/IS THE LOOP BACK CONNECTOR ON?/ 


(2) 


£>07 154 


047^77 


0201 17 


042504 


NOACTl 


•ASCIZ 


<37?>/nT) DEVICES AR£ SELECTED/ 


( 2 ) 


C07 205 


377 


05 1412 


05 1127 


SWMES X 


•ASCIZ 


<377><12>/SWR= / 








05 3505 


v cv<o f 1 


gnnbsl I 




/NEW? / 


(2) 


007223 


377 


042377 


041515 


CONERR; 


Iasciz 


<377><377>/DMCll FOUND AT NUN-STANDARD ADDRESS PCs / 


(2) 




377 


054105 


042520 


CNERR: 


.ASCIZ 


<377>/EXPECTED FOUND/ 


(2) 


»073?0 


324040 


046504 


024503 


dmch: " 


•ASCIZ 


/ (DHCJ / 


C2) 


047330 


024040 


046513 


024503 


KMCHl 


.ASCIZ 


/ (KMC) / 


12) 


U07340 


042377 


041515 


030461 


SPEED: 


.ASCIZ 


<3 7 7>/DNC 1 1 -AR( REMOTE, LOW SPEED] OR DMCll»AL(LOCAL r HIbH SP£ED) T 


(2) 










.EYES' 






(2) 


fc>tf7454 


000005 






XSTATQ: 


5 




llbS 


007 456 


006 


003 






.BYTE 


6,3 


1 J69 


fc>O7 460 


001246 








TEMPI 





DZ.DWG MACX11 3SJ11046) ll-JUb-77 12:11 PAGE 25 PAGE: 0041 

DZDMG.P11 22-AHR-77 09:29 GENERAL UTILITIES CTIPEOUT, ERROR, SCOPE, ETC) 



119H 


i»074b2 


006 


003 




.BYTE 


6,3 




1191 


1*37464 


001250 






TEMP2 






1192 


t>0746o 


006 


003 




.BITE 


6,3 




11*3 


007470 


&01252 






TEMP3 






119* 


007472 


006 


003 




.BITE 


6,3 




1 1 9S 


007 474 


901254 






TEHP4 






119b 


U07476 


006 


002 




.SSTE 


»f 2 




1197 


*0750C 


001256 






TEHP5 






1198 








.EVEN 








1199 
















1200 










; BUFFERS FOR IMPUT-OUTPUT 


1201 
















12U2 


E07502 


£00000 




inbuf: 









12W3 




007544 




•*.+40 








1204 


B07544 


000000 




hdata: 









1205 




007606 




.S.+40 








12<»b 
















1207 
















1208 










t ROUTINE USED TO CHANGE SOFTWARE SWITCH 


1209 
1210 
1211 

1212 










.•REGISTER USING THE 


CONSOLE TERMINAL 


(407606 


322737 


000176 001202 




CMp 


f SHREG, SHR 


JIS THE SOFT SnR BEING USED ; 


1213 


307614 


001077 






8NE 


CKSNR5 


fBR IF NO " 


1214 


W07616 


105777 


171362 




TSTB 


9TKCSR 


MS DONE SET? 


1215 


307622 


100003 






BPL 


2$ 


;G0 ON IF NOT SET 


1216 


007624 


012737 


177777 003734 




MOV 


#-l,D0NE 


J IF DONE SET, SET FLAG 


1217 


S07632 


C22/77 


000007 17134b 


2$: 


CHP 


*7,9TKDBR 


;I«AS CTRL G TYPED? 17 BIT ASCII) 


1219 


•j.07640 


001404 






BEQ 


IS 


; BR IF YES 


1219 


U07642 


022/77 


000207 171336 




CMP 


1207, 0TKDBR 


jNAS CTRL G TYPED? C8 BIT ASCII) 


1220 


007650 


301061 






BNE 


CKSWR5 


;BR IF NO " 


1221 


?07652 


1,1 J lib 




is: 


MOV 


R2,-(SP) 


; STORE R2 


1222 


£07654 


0I0J46 






MOV 


R3.-CSP) 


; STORE R3 


1^23 


00/656 


4104 46 






HOV 


R4,-(SP) 


J STORE H4 


1224 


007660 


U12737 


177777 010016 




MOV 


t-l,SWFLG 


;SET SOFT TYPE OUT FLAG 


1225 


007666 


SSJ5002 




CKswKi: 


cut 


R2 


;CLEAR NGN ShR CONTENTS 


1226 


007670 


012704 


177777 




MOV 


#-1fR4 


;SEt FLAG JO ALL ONES 


1227 


007674 


104402 


007205 










IZ2U 


»0770t) 


104411 




CKSWR'^: 


CNVRT 




;TYPE OUT PRESENT CONTENTS 


1229 


007702 


bl0052 






SOFTSW 




J OF SOFT SNITCH REGISTER 


1230 


D07704 


104402 


007215 


CKSMRJl 


TYPE 


,SHMES1 


;TYPE "NEW? " 


1231 


D077J0 


:)04737 


010020 


CKswRi: 


JSR 


PC,1NCHAR 


;GET RESPONSE 


1232 


.,07714 


?22703 


000015 




CMP 


«i5,R3 


;WA5 IT A CK? 


1233 


(W7 72.1 


^01424 






BEQ 


5$ 


;BR IF YES 


1<;34 


i-07722 


<D/21*i 


000012 




CMP 


f 12fR3 


;WAS IT A Lt? 


1235 


007726 


301416 






BEQ 


45 


; BR IF YES 


1236 


4/077 30 


622703 


0^0^25 




CMP 


#25» R3 


;MAS IT CTRL U? 


123/ 


tff<7734 


601754 






BEQ 


CKSNR1 


;BR IF YES(bTARI OVER) 


123B 


1/077 36 


£522703 


00000 7 




CMP 


17, R3 


;IF CNTL G GET NEXT CHAR 


1239 


»307742 


0<>17&2 






BEQ 


CKSMR4 




1240 


307714 


005004 






CI>R 


R4 


;1T MUST BE A DIGIT SO CLK FLAG 


1241 


007746 


042703 


177770 




BIC 


•177770, R3 


;ONM 0-7 ARE LEGAL SO MASK OFF BITS 


1242 


«07752 


006302 






ASL 


R2 


;SH1FT H2 3 TIMES 


1243 


t'0775 4 


0063<?2 






ASL 


H2 




124« 


"07 7 5 «, 


jyb 3k>2 






ASL 


R2 




1245 


00/7b'<; 


55ffJ.i2 






BIS 


R3,H2 


;ADU LAST DIGIT 
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PAGE: 0042 



1 246 


007762 


900752 






BR 


C K S WR4 


;GE1 NEXT CHARACTER 


1247 


007764 


£12/6o 


002002 000006 


4(t 


MOV 


# .START, 6(SP) 


;Lf MAS TYPED SO GO TO START 


1248 


1537 1 12 


205/04 




5$ t 


TST 


R4 


;IS FLAG CLEAR? 


1 249 


U07774 


001002 






BNE 




• IF NOT DON'T CHANGE SOFT SwR 


1250 


907776 


910277 


171200 




HOV 


R2 t 9SWR 


;IF YES THEN WRITE NEW CONTENTS 


1251 


01 0V*02 


005037 


01001 6 


, - 






■CLEAR TYPEOUT FLAG 


1252 


010006 


012604 






MOV 


(SPJ+»R4 


; RESTORE K4 


125 3 


1*10010 


012603 






NOV 


(SP) + » R3 


; RESTORE H3 


1254 


010U12 


012002 






HOV 


(SPJt »R2 


; RESTORE R2 


1255 


&1001 4 


000207 




CKSUR5 ; 


RTS 


PC 


; RETURN 


1256 
















1257 


010016 


'J00000 




SMFLG3 









1258 
















1259 


910020 


105777 


171160 


INCHAHI 


TSTB 


8TKCSR 




12614 


010024 


100 J 75 






BPL 


• B 4~ 




1261 


yl 0026 


?17703 


171154 




MOV 


9TKDBR, R3 




1262 


£10032 


105777 


171152 




TSTB 


0TPCSR 




1263 


U10036 


100375 






BPL 


.-4" 




1264 


010040 


010377 


171146 




HOV 


R3» 9TPDBR 




1265 


010044 


042703 


000200 




BIC 


#BIT7,R3 




1266 


•J 13050 


000207 






RTS 


PC 




1267 
















126M 


V) 1 0052 


000001 




SOFTS**! 


1 






1264 


I.- 1005 4 


006 


002 




• BYTE 


6,2 




1270 


010056 


000176 






SNREG 
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1271 
1272 
127 3 
1274 
1275 
1 776 
1277 
1273 
127* 
1280 
1261 
1282 
1283 
1264 
1285 
1286 
12H7 
1288 
1299 
129* 
1291 
1 292 
1293 
1294 
1 295 
1296 
1297 
1298 
129'* 
1 300 
1301 
1302 

1304 
1305 
1306 
1307 
1308 
13«,9 
1310 
1311 
1312 
1313 
1 31 4 
1315 
1316 
1317 
1 31 B 
1319 
1 32<J 
1 idi 
1 322 
1323 
1324 
1 325 
3 326 



I 

IROOTINE OSED TO "CYCLE" THROUGH UP TO 16 DMCll'S 
(THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
I AND RUNS THE SPECIFIED DHCll'S. THIS ROUTINE »HU5T» 
f BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 











t SETUP 
1 


NECESSARY, 




l»l t'060 


005737 


001306 




CYCLE1 TST 


DMACZV 


; ARE ANY DMCll'S TO BE TESTED? 


010064 


001004 






BNE 


1$ " 


} BR IF OK. 


U10066 


1 04402 


007154 




TYPE 


.NOACT 


;N0 DMCll'S SELECTED! 1 


<!10072 


»00000 






HALT 




jSTOP THE SHOH. 


t?10074 


000/76 






bR 


.-2 


jDISUUAliif J COM . S*. 


£10076 


000241 






is: CLC 




(CLEAR PROC. CARRY BIT. 


010100 


K06137 


001316 




ROL 


RUN 


;UPi)ATE POINTER 


010104 


00553? 


001316 




ADC 


RUN 


jCATCH CARRY FROM RUN 


010110 


062737 


000004 


001322 


ADD 


#4, MILK 


; UPDATE POINTER 


010116 


062737 


000910 


001320 


ADO 


f 10, CREAM 


: UPDATE ADDRESS POINTER. 


H10124 


022737 


001700 


001320 


CMP 


IDH.MAP+200, CREAM 


310132 


001006 






BNE 


2$ 


; KEEP GOING; NOT ALL TESTED FUR. 


f 101 34 


012737 


001500 


001320 


MOV 


(DM. MAP, CREAM 


t RESET ADDRESS POINTER. " 


U10142 


012737 


001702 


001322 


MOV 


tCNT. MAP, MILK 


; RESET PASS'COUNT POINTER 


U10150 


033737 


001316 


001306 


2SI BIT 


RUN, DMACTV 


;IS THIS ONE ACTIVE? 


010156 


001747 






BEO 


IS 


;BR IF NO 


01016f* 


013700 


001320 




MOV 


CREAM, R0 


;GET ADDRESS POINTER 


010164 


013702 


001322 




MOV 


MILK,R2 


; GET PASS COUNT POINTER 


01017H 


C12037 


001404 




MOV 


(R0)+,DMCSR 


; LOAD SYSTEM CTRL. REG 


010174 


C 1 103? 


001374 




MOV 


CR0J,DMRVEC 


;LOAD VECTOR 


010200 


042737 


177000 


001374 


BIC 


1177000, DMRVEC 


; CLEAR UNWANTED BITS 


C10206 


012037 


001366 




MOV 


(R0)+,STAT1 


; LOAD STAT1 


010212 


012037 


001370 




MOV 


(R03+,STAT2 


; LOAD STAI2 


UI0216 


012037 


001372 




MOV 


(R03+,STAT3 


f LOAD STAT3 


U10222 


012237 


001230 




MOV 


(R2)+,PASCNT 


; LOAD PASS COUNT 


010226 


012237 


001232 




MOV 


(R2)+»EPRCNT 


;LOAD ERROR COUNT 


B10232 


012700 


000002 




MOV 


#2,R0 


;SAVE CORE THIS WAY! 


0102 36 


013737 


001404 


001406 


MOV 


DMCSR,DNCSRH 




010244 


005237 


001406 




INC 


DMCSRH 




010250 


01373? 


001406 


001410 


MOV 


DMCSRH, DMCTL 




010256 


2052 37 


001410 




INC 


DMCTL 




C10262 


013737 


001410 


001412 


MOV 


DMCTL, DNP04 




01027H 


360037 


001412 




ADD 


. R0,UMPO4 




010274 


013737 


001412 


001414 


HOV 


DMpU4,DMP06 




010302 


060037 


001414 




ADD 


R0,DMPO6 




010306 


31 3737 


001374 


001 376 


MOV 


DMRVEC, DMRLVL 


JPTI LVL 


tJ1031 4 


P60337 


001376 




ADD 


Rk), DMRLVL 




iS1032* 


013/37 


001376 


001 400 


HOV 


DMRLVL, UMTVEC 


;TX VEC 


fcl032b 


J60037 


001 400 




AUu 


R0,UMTV£C 




010332 


Jl 3/37 


0H1 4051 


041402 


MOV 


DMTVEC , DMTLVL 


;TX LVL 


b!10340 


Hb0v37 


W01 432 




ADD 


R»i, UMTLVL 




U10344 


2)2137 


0B0H02 


001236 


BIT 


ISW01,5TRT5W 


;1S TEST tiO. SELECTED 


IM03S2 


SM1450 






BEU 


7S 


;bk IF NO 


10351 








4S ! 






«10354 


'.'5 / 37 


it''**' 4 2 




TST 


S*42 


JRUNN1NG IN AUTU H0DE7 
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1327 


P103b0 


001045 




1 328 


C10362 


104402 


005672 


1 32V 


910366 


1 04403 




1330 


010370 


000 1 30 




1331 


010372 


1 04405 




1332 


&I0374 


300021 




1333 


■710376 


001000 




1334 


9104^0 


001226 




1335 


010402 


000 




1336 


010403 


001 




1337 


010404 


012700 


022322 


1338 


£10410 


322710 




1339 


910412 


612737 




13 40 


SS1B4S4 


e»iS2<5 




1341 


010416 


023760 


001226 


1342 


£10424 


001014 




1343 


010426 


022760 


001226 


1344 


410434 


001010 




1345 


S510436 


£12037 


001214 


1346 


310442 


104402 


005755 


1347 


610146 


J42737 


000002 


1348 


010451 


000412 




1349 


151(9456 


005720 




1350 


010463 


020027 


026472 


1351 


010464 


001351 




1352 


D10466 


104402 


005666 


1353 


C10472 


300730 




1354 








1355 


010474 


612737 


022322 


135b 


010502 


0137£1 


001404 


1357 


910506 


000177 


170502 


1358 








1359 








1360 








1361 








1362 








130 3 








1364 








1365 








1366 








1367 








1368 


1*10512 






1369 


P10512 


000005 






SiSSi 4 


312702 


001500 


1371 


W10520 


£05022 




1372 


410522 


022702 


001700 


1373 


£710526 


001374 




1374 


010S3P 


005037 


001310 


1375 


«10534 


012/02 


001500 


1376 


910540 


0050 37 


001306 


137 7 


,410544 


032737 


000001 


1378 


010552 


001002 




1379 


L-10554 


900137 


011252 


136*) 


010560 


19127 37 


000001 


1381 


»lo566 


104403 




1382 


&10570 


91,6450 







BNE 


7$ 


;BR IF YES 




TYPE 


, MCKLF 






INSTR 




•GET TEST NO. 




MTSTN 








PARAM 








1000 








TSTNO 






S BYTE 









.BYTE 


1 








MOV 


#TST1,R0 




5$: 


C«P 


(PCJ+f (R0) 


;CMP FIRST WORD TO 12737 




MOV 


CPC)+,0CPC)+ 






3NE 


65 


;BR IF NOT SAME 




C«P 


TSTNO, 2(R0) 


;OOES TSTNO HATCH? 




BNE 


6$ 


5 BR IF NO 




CMP 


#TSTNO,4(R0) 


J IS LAST NOKO OK? 




BNE 


6$ 


} BR IF NO 




MOV 


R0, RETURN 


•IT IS A LEGAL TEST SO DO 




TYPE 


,MR 






BIC 


#SW01,STRTSW 






BR 


8$ 




6$: 


1ST 


(R0J+ 


;POP R0 




CMP 


R0,#TLAST+10 


; AT END YET? 




BNE 


59 


; BR IF N0~ 




TYPE 


,MQM 


;YES ILLEGAL TEST NO. 




BR 


4$ 


;TRY AGAIN 


7Sl 


Moy 


#TST1, RETURN 


J PREPARE RETURN ADDRESS 


8$: 


MOV 


DMCSR,R1 


;R1 » BASE DMC 11 ADDRESS 




JMP 


8RETURN 


;G0 START' TESTING. 



J ROUTINE USED TO "AUTO SIZE" THE DMCU 
;CSR AND VECTOR. 

| NOTE: THE'CSR MAY BE ANY WHERE IN THE FLOATING 
[ ADDRESS RANGE C 160000! 164000) 

; AND THE VECTOR MAY BE ANY WHERE IN THE 

; FLOATING VECTOR RANGE (300(770) 



AUTO. SIZES 





RESET 




; INSURE A BUS INIT. 


CSRMAPi 


MOV 


IDM.MAP, R2 


;LOAD MAP POINTER. 


1$: 


CLR 


CR2)t 


;Ze&o entire map 




CMP 


|DH,END,R2 


; ALL DONE? ~ 




BNE 


IS 


;BR IF NO 




CLR 


DMNUM 


;SET OCTAL NUMBER OF DMCll'S TO 




MOV 


*0M.M*P,R2 
DNACTT 


;R2 POINTS TO DMC MAP 




CLR 


; CLEAR ACTIVE 




BIT 


»SW00,3TRTSW 


; QUESTIONS? 




BNE 


.+6 


; BR IF YES 




J MP 


79 


;IF 00 SKJP QUESTIONS 




MOV 


#1, TEMPS 


; START WITH 1 




INSTR 








NUN 
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DZDMG.PU 22 


-APR-77 


1383 


•,10572 


104405 


1384 


{•10574 


000001 


1385 


tolfc576 


000020 


1 38b 


i.10600 


PB1252 


1387 


910602 


000 


133U 


B 1060 3 


001 


1389 


£10604 


013737 


1390 


810612 


104402 


1391 


010616 


104410 


1392 


010620 


012002 


1393 


010622 


005237 


1394 


lt-10626 


104403 


1395 


£10630 


006510 


liib 


010632 


104405 


1397 


£10634 


160000 


1398 


131063b 


164000 


1399 


610640 


001254 


1400 


010642 


000 


1401 


310643 


001 


1402 


£10641 


013/22 


1403 


C!1065t> 


104403 


1404 


#10652 


006526 


1405 


£10654 


134405 


140b 


C10656 


1100000 


1407 


910660 


0007 76 


1408 


1,10662 


001254 


1 409 


010664 


000 


1410 


010665 


001 


1411 


P10666 


313/12 


1412 


-10672 


104402 


1413 


910671 


!)06547 


1414 


010676 


4)04731 


1415 


310702 


C22703 


141b 


t 10705 


101014 


141 / 


010710 


022703 


1418 


H0714 


103411 


1419 


910716 


'J12704 


1420 


i'10722 


0P6303 


1421 


010724 


005304 


1422 


B10726 


001 375 


1423 


01073b 


042703 


1424 


„'10731 


050312 


1425 


tl0736 


000403 


1426 


010740 


104402 


1427 


110742 


005666 


1423 


PI 07 4 4 


300752 


1429 


£10746 


104402 


1430 


C10750 


00660b 


1431 


010752 


0047 37 


1432 


.110756 


322703 


1433 


510762 


001 427 


1434 


010764 


t'22 703 


1435 


010770 


k 01403 


14 36 


SJ10772 


104492 


1437 


v<10774 


»05b66 


1433 


£10776 


0007 6 3 
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001252 
005672 



01226b 
000B24 



012266 
000131 



PARAM 






1 

16. 






TEMP3 






.BYTE 







.BYTE 


1 




MOV 


TEMPI; DMNUM 


•QMMMM - HQW MANY 


TYPE 


,MCRLF 




CONVRT 




; TYPE WHICH DMC IS BEING DONE 


WHICH 




;TEHP5 IS" WHICH DMC 


INC 


TEMP5 




INSTR 






CSR 






PARAM 






160000 






164000 






TEMP4 






.BYTE 







.BYTE 


1 




MOV 


TEMP4,(R2)+ 


; STORE CSK IN MAP 


INSTR 






VEC 






PARAH 













776 






TEMP4 






.BYTE 







.BYTE 


1 




MOV 


TEMP4,(R2) 


; STORE VECTOR IN MAP 


TYPE 






PRIO 




;ASK WHAT BK LEVEL 


JSR 


PC, 1NTTY 


;G£T RESPONSE 


CMP 


#24,R3 




BHI 


50$ 


; BR IF LESS THAN 4 


CHP 


#27, R3 




BLO 


50» 


) BR IF GREAIER THAN 7 


MOV 


lll,R4 


jR4 3 NOMBEH OF SHIFTS 


ASL 


R3 


•SHIFT R2 LiFT 


DEC 


R4 


•DEC SHIFT COUNT 


BNE 


.-4 


;BR IF NOf DONE 


bic 


#170777, R3 


;B1C UNWANTED BITS 


BIS 


R3,IR2) 


;PUt BR LEVEL IN STATUS MAP 


BR 


89 


;C0NT1NUE 


TYPE 






MQM 




; RESPONSE IS OUT OF LIMITS 


BR 


106 


;TRX AGAIN 


TYPE 






CRAM 




;DOES DMC HAVE CRAM? 


JSR 


PC, iNTTY 


;GEt REPLI 


CMP 


#131, R3 




BEO 


9S 


>YES 


CMP 


tll6,R3 


;N0 


BEO 


40$ 


;NO'I A I OR N 


TYPE 






MOM 




; TYPE "?" 


BR 


8S 


;ASK AGAIN 
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1439 


til 000 


1 b4402 




40s : 








1 440 


01 1002 


■J07 340 






SPEED 




• nun i«ad Au rtiir* i i .st 7 


1441 


V 11004 


004737 


01 2266 




JSR 


PC# INTTI 


• (jg^ response 


1442 


011010 


022703 


0C01 22 




CHP 




■ is IT R 


1443 


01 101 4 


00 1 4 1 4 






BEQ 


16$^'^ 


* BR IF REMOTE 


1444 


el 1016 


022703 


0001 1 4 




CHP 


ff X 1 4, R3 


* IS IT L 
jBR IF LOCAL 


1445 


311022 


l.>01 403 






BEQ 


41 $ 


14 46 


CI 1024 


104402 






TYPE 






14 47 


01 1026 


005666 






HQM 






1 4 4H 


£ 1 10 30 


000763 






BR 




■ TOV LCI A T N 






052762 


000002 000004 




ao S 


t oXTJ « 4 C R2 ) 


, CC'T RTTi IN (TIT 1 


1450 


01 1040 


000402 












1451 




0527 1 2 


1 00000 




BI<; 




• CITT MIT IK Tt rDiU 




01 1046 








TVDF 








Ul j 05*9 


006704 






unnn 




f ASK WHICH LtlNE UNIT 


1454 


ICl 1052 




01 2266 






PCf IRTIY 


;GET REE*L£ 


1455 


01 1056 


022703 


00002 1 




(•MP 




?"1" 


1 456 


h/ 1 1 06 2 


00 1417 






BEQ 


30$ 




1457 


0l 1 064 


022703 


000022 




CP 


#22rR3 


J * 


1451 


01 1070 


001412 






BEQ 






1459 


01 1072 


022703 


000 116 






#il6 R3 


huh 

; n 


1 460 


01 1076 


001 403 






RFO 






1461 


0l 1 100 


1 04 402 






TYPE 




1 462 


tJl 1 102 


005666 






MQM 




•IF NOT A 1*2 OR N TYPE " ? " 
y iki nviiitn 


1463 


H|| 1 04 


000760 






BR 


168 


1464 


1 1 1 06 


052722 


01 0000 


32$ : 


BIS 


tt ATT1 9, C DO ^ x 


•SET BIT 12 IN STAT2 IF NO JjU 


1465 


111112 


022222 






CMP 


f fiO 1 + » f &9 W 
I n< / Ti \ j t 


•POP OVER STAT2 AND SfAT3~" 


1 466 


£11114 


000447 






BR 


33$ 




146 7 


01 1 1 16 


052712 


020060 


31 s 


BZS 


• BITU,CR2) 


• cpT ATT 1) TH BflTO TIT MUOul 


1 46H 


011122 


1 04402 




^ I 








1469 


91 1 124 


£07 114 






CONN 






1470 


711126 


ft047 37 


012266 




JSR 


or imttv 




1471 


01 1 1 32 


022703 


000131 




CMP 


* l'^3 


* Y 


1472 


gill 3£ 


00 1 406 








178 




147 3 


jjl H40 


022703 


0001 16 




CMP 




J » 


1 474 


011144 


00 1 406 








18$ 


14 75 


41 1 1 46 


1 04402 






TYPE 




14 76 


91 1150 


005666 






no" 




y IF NOT * OK N TYPE ■ y ■ 


1477 


01 1 152 


000763 








308 


7 TRY AGAIN 


14 78 








175 J 


RT<; 


#BIT14i> (R2) + 


} TURNAROUND IS CONNECTED 




91 1 160 


0k! 402 








1 9$ 




1 *80 


011162 


342722 


040000 


IBS! 


Bir 






1481 


Dill 66 














1482 


bl 1 166 


1 04403 






R 






148 3 


01 1 1 7»t 


0t»7wl6 






LINE 






148 4 


(1)1172 


1 04 405 






PARAM 






1485 


1.1 1 17 4 


00?000 












1486 


111176 


000 477 






377 






1487 


311 203 


001254 






TEHP4 






1488 


Jl 1202 


000 






.BYTE 







1489 


fl 1203 


001 






.BYTE 


i 




1490 


kM 1204 


1 13722 


001254 




HOVB 


TEMP4, (R2)+ 


: STORE SWITCH PAC IN MAP 


1491 


fcl 12) 


104433 






INSIR 






1492 


tM 1212 


0B7054 






BH 






1493 


011214 


104405 






PARAM 






1494 


t>1121o 


300000 
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-APR-77 


09129 




1495 


»U220 


000377 






1496 


(M 1222 


001254 






149/ 


011224 


000 






1498 


011225 


001 






1499 


1*11226 


113722 


001254 




1500 


01 1232 


005722 






1501 


PI 1234 


305337 


001252 




1502 


011240 


00144/2 






1503 


1/11242 


300137 


010612 




1504 


011246 


0001 31 


011702 




1505 


011252 


SH2701 


160000 




1506 


i*11256 


k)l 2737 


011774 


000004 


1507 


P11261 


0050U 






1 5«it> 


liil Zoo 


UVO i l x 






1509 


C11270 


1)01172 






1510 


1*11272 


005061 


000006 




1511 


>U27S 


005761 


000006 




1512 


011302 


001165 






1513 


011304 


012711 


002000 




1514 


011310 


005061 


000004 




1515 


0U314 


012761 


125252 


000006 


1516 


1/11322 


052711 


020000 




1517 


ZU32o 


022761 


125252 


000004 


1518 


011334 


001004 






1519 


011336 


052762 


100000 


000002 


152J 


4,11344 


000431 






1521 


C11346 


012711 


001000 




1522 


eu 152 


012761 


100417 


000006 


1523 


H1360 


012111 


001400 




1524 


011364 


J12711 


002000 




1525 


011370 


322761 


000626 


000006 


1526 


011376 


001411 






1527 


*1 1 400 


t*2276! 


316520 


000006 


1528 


011406 


001410 






1529 


011410 


022761 


177777 


000006 


1530 


011416 


001404 






1531 


011420 


000516 






1532 


011422 


052/62 


000002 


000006 


1533 










1534 


if 1 1 4 3 J 


C14122 






1535 


311432 


012711 


001000 




1536 


011436 


005061 


000004 




1537 


011442 


012761 


122113 


000006 


1538 


C11450 


352711 


000400 




1559 


«:u*s» 


012761 


021264 


000406 


1540 


t'l 146 2 


1)52711 


000400 




1541 


311466 


1 22/61 


000377 


000004 


15 42 


111471 


001003 






1543 


611476 


•J52712 


010000 




1544 


«•! 1502 


00043b 






1545 


011504 


■ 32 /61 


000002 


00CVI04 


1546 


D11512 


U01 433 






1547 


bllSl4 


"52712 


06000(1 




1548 


tfl 152« 


J00427 






1549 


fc-11522 


('32 /bl 


U0001D 


H00W04 


1 5 S J 


01 15 3" 


C»J!t23 
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377 








TEMP4 








.BYTE 









.BYTE 


1 






HOVB 


TEHP4,(R2)+ 


; STORE SWITCH PAC IN MAP 




TST 


(R2J* 


»POP OVER STAT3 


33$: 


DEC 


TEMP3 


;DEC DMC COUNT 

jflRIF done 




BEQ 


341 




J(4P 


12* 


;JUMP IF riOT 


34$! 


JMP 


13* 


;C0NT1NUE 


7»l 


MOV 


»1 60000 rRl 


;SET FOR FIRST ADDRESS TO BE TESTED 




NOV 


I6$,at4 


;SET FOR N0«-EX1STANT DEVICE TIME'OUT 


2$: 


CLR 


IR1) 


; CLEAR SEL0 




1ST 


(Rl) 


;1F DMC 11 DMCSR S/B 




BNE 


3$ 


J IF NO DEV 1 TRAP TO 4. IF NO BIT 8 THEN NO DMCl 




CLR 


6(R1) 


; CLEAR SEL6 




TST 


6(Rl) 


; IF DMCl 1 THEN DMRIC S/B =01 




BNE 


34 " 


; BR IF NOT DMC 1 1 
;SET ROMO " 




MOV 


*BIT10,(R1) 




CLR 


4(R1) 


{CLEAR SEL4 




MOV 


<12S252/6CR1) 


; WRITE THIS TO SEL6 




BIS 


#BItl3,tRi) 


; WRITE II I" 

; HAS IT WRITTEN? 




CMP 


»125252,4(R1) 




BNE 


21* 


;IF NO IT IS NOT CRAM 




BIS 


IBIT13,2(R2) 


;SET BIT15 IF CRAM 




BR 


22* 




21$: 


MOV 


*BIT9» (Kl) 


;SET ROM I 




MOV 


»10W417,6(R1) 


;PUT INSTRUCTION IN SEL6 




MOV 


»BIT9iBIT8,CRl) :CL0CK IHSTHUCTION (MICRO PKOC PC TO 0) 




MOV 


#BItl0,CRl) 


}SET ROMO 




CMP 


*626,6(R1) 


;IS IT LOCAL CROM 




BEQ 


23* 


; BR IF YES 




CMp 


# 16520# 6(Ri) 


1 IS IT REMOTE CROM? 




BEQ 


22$ 


;BR IF YES 




CMP 


#-l#6(Rl) 


;N0 CROM? 




BEQ 


22* 


; BR IF YES 




BR 


38 


;NOT A OMC 


23(1 


BIS 


#BIT1,6(R2) 


;SET BIT 1 IN STAI3 


,AT 


THIS POINT 


IT IS ASSUMED 


THAT Rl HOLDS A 0MC11 C5R ADDRESS. 


22$: 


MOV 


Rl, CR2)t 


} STORE CSK IN CORE TABLE. ~ 


15$: 


MOV 


*BIT9,(R1) 


; CLEAR LINE UNIT LOOP 




CLR 


41R1) 


; CLEAR P0KT4 




MOV 


f 122113, 6(R1) 


; LOAD INSTRUCTION (CLR DTK) 




BIS 


«BIT8,(R1) 


:CLUCK INSTRUCTION 




MOV 


1021264, 6CR1) 


;LOAU INSTRUCTION 




BIS 


#BIt8,(Rl) 


{CLOCK INSTRUCTION 




CUPS 


#377,4(ftl) 


;1S IT ALL UNES? 




BNE. 


. + 10 


J BR IF NO 




BIS 


IBIT12, (R2) 


}IF YES, NO LINE UNIT, SEl STATUS BIT 




BP 


20$ 






BIT 


«HIT1,4(R1) 


;IS SWITCH A ONK? 




BEQ 


. + 10 


; BR IF MB201 




BIS 


tUiri3iblT14, 


(R2) ;M8202 ASSUME CONNECTOR 




BP 


20$ 


;CONht.CTOR ON) 




BIT 


•BIT3»4CR1) 


;I5 MPDY SET 




BNE 


20$ 


;BR IF M82iU NO CUNNECTUh (UN LiNfc) 
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f AGE: 0048 



1551 


011532 


()1 '2761 


000 1 00 


000004 




HOV 


It H T Tft .AfDI 1 


•LOAD P0RT4 


1552 


Ot 1 543 


01 2761 


122113 


000006 




NOV 


1 1 O'Ji 1 1 lf%( ol 1 

w 1 * * 1 IJfVVttU 


"LOAD INSTRUCTION 


1 55 J 


9115 46 


05 2711 


000400 






BIS 


tKTTfl." f R1 i 


fCLOCK INSTRUCTION ( SET DTK) 


155 4 


01 1552 


(212761 


021264 


000006 




HOV 






1 555 


01 1560 


0527 1 1 


000400 










"CLOCK INSTRUCTION ( READ MODEM REG) 


1556 


CI 1564 


"32761 


000010 


000004 




BIT 


#BIT3* 4 (Rl ) 


•IS HRDY SET NOW? 


1557 


£11572 


001 402 








SEQ 




'BR IP NO CONNECTOR 


155 8 


VI 1574 


352712 


040000 






BIS 


#BIT14s { R2 ) 


•SET STATUS' BIT FOR CONNECTOR 


1559 


^1 1600 


005722 






2SS S 


TST 


C R2 ) * 


= POP POINTER 


1560 


tot 1602 


01 2761 


021 324 


000006 




HOV 


#021324*6(R1} 


•PUT INSTRUCTION IN P0RT6 


1561 


* 1 1610 


01271 1 


001400 






HOV 


# Bit 91B1T8* tRl ) 


•P0RT4.LU 15 


1562 


011614 


156122 


000004 






BI5B 




1 STORE DDCMP LINE t IN TABLE 


1563 


k.'l 1620 


012761 


021 344 


000006 




MOV 


#02i344r6CRl) 


;P0RT6— INSTRUCTION 


! 564 


811626 


012711 


001400 






NOV 


#3Iio iB!T9 f (Ri ) 


{CLOCK IK3TR, 


1565 


911632 


1 561 22 


000004 






BISB 


4(Rl)#(ft2)+* 


;STORE BH873 ADD IN TABLE 


1566 


tl 1636 


005722 








TST 


(R2) + 


•POP OVER STAT3 


156 7 


£1 1640 


00501 1 








CLR 


(Rl J 


;CLEAR ROHI 


1568 


IM1642 


005237 


001310 






IMC 


DHNUH 


; UPDATE DEVICE COUNTER 


15o9 


011646 


022737 


000020 


001310 




CMP 


f 2Wf DMNUH 


}ARE MAX, NO. OF DEV FOUND? 


157a 


U11654 


001 412 








BEQ 


131 


•YES DON 'I LOOK FOR ANY MORE, 


1571 


?1 165o 


00501 1 






3S 1 


CLR 


( Ri ) 


J CLEAR BIT 10 


1572 


41 1663 


005061 


000006 






CLR 


6(Ri ) 


•CLEAR SEL 6 


157 3 


01 1664 


E762701 


000010 




1 4$ I 


ADD 


1 1 0* Rl 


•UPDATE C5R POINTER ADDRESS 


1574 


fi?l 167fc; 


922/01 


1 64000 






CMP 


ff 1 O W0v f l\ J. 




15 75 


CI 1674 


00 1 402 








BEQ 


13S 


{BR IF DONE 


1576 


ttl 1676 




0l 1264 






J HP 


2$ 


JJUMP IF NOT 


15 77 


fcl 1702 


005037 


001 306 




13$x 


CLR 


DMACTV * 


1578 


01 1706 


005737 


001310 






TST 


DttNUM 


•WERE ANy DMCll'S FOUND AT ALL? 


1579 


all 712 


001423 








BEQ 


5$ 


•ERROR AUTO SIZER FOUND NO DMCll'S IN 


1584 


011714 


013701 


001 310 






HOV 






1581 


01 1729 


010137 


001314 






HOV 


Rl r SAVNOH 


;GAVE NUMBER OF DEVICES 


1542 


01 1724 


000241 






4$ ! 


CIjC 




1583 


1311726 


006137 


001306 






ROL 


DMACTV 


(GENERATE ACTIVE REGISTER OF DEVICES. 


1584 


B11732 


005237 


001306 






INC 


DMACTV 


j SET THE BIT 


1585 


1/11736 


005301 








DEC 


Rl 


1586 


01174a 


001 371 








BNE 


44 


;BR IF MORE TO GENERATE 


1587 


711742 


012737 


000006 


000004 




HOV 


*6,§#4 


; RESTORE TRAP VECTOR 


1588 


011750 


013737 


001306 


001312 




MOV 


DMACTV, SAVACT 


{SAVE ACTIVE REGISTER 


1 589 


91 1 756 


000137 


012010 






JMP 


V EC MAP 


jGO FIND THE VECTOR~NON« 


1 590 


01 1 762 


1 04402 


005760 




5ft 


TYPE 


9 MERR2 


•NOTIFY OPR~ THAT NO DNCll'S FOUND, 


1591 


CI 1766 


005000 








CLR 


R0 


•HAKE DATA LIGHTS ZERO 


1592 


31177H 


000000 








HALT 




•STOP THE SHOW " 


1593 


011772 


000776 








BR 


• m 2 


{DISABLE CONT. SW. 


1594 


i*l 1 7 7 4 


012716 


01 1664 




68 J 


MOV 


• i as * rspi 

f M»f W "T J 


•ENTERED BY HON— EXI5TANT TIME— OUT. 


1595 


312004 


000b02 








RTI 




{RETURN TO MAINSTREAM 


1597 


£12002 


000001 






WHICH X 


1 






1598 


£12004 


002 


002 






.BYTE 


2,2 




1599 


012006 


001256 








TEMP5 






1600 


















1601 


C12010 


032737 


0001001 


001236 


vecmapx 


BIT 


*SM00,STRtSH 




1602 


012016 


001114 








BNE 


5* 




16o3 


»1202t' 


212737 


000340 


000022 




HOV 


S340 f ef22 


;SET IOT TRAP PRIO TO 7 


1604 


til 2026 


012737 


012202 


000020 




MOV 


#4$,»#20 


;SET IOT TRAP VECTOR 


1605 


el 233 4 


012702 


001500 






HOV 


»DH.MAP,R2 


•SET SOFTWARE POINTER 


16ub 


It 12040 


012700 


000300 






MOV 


f300,R0 


{FLOATING VECTORS START HERE, 
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DZDMG.PH 22 


-APR-77 


09129 


1607 


012044 


012701 


000302 


1608 


012050 


910120 




1609 


012052 


312721 


000004 


1610 


K>1205o 


J22021 




161 1 


C12060 


J20127 


001000 


1612 


PI 2064 


101/71 




16! S 


312066 


91 3737 


301 306 


1614 


012074 


006037 


001246 


1615 


012100 


103063 




1616 


912i02 


012704 


000012 


1617 


012106 


016437 


012252 


1618 


SJ12114 


01 1201 




1619 


IJ12116 


012761 


000200 


1620 


012124 


312711 


001000 


1621 


012130 


012/61 


121111 


1622 


312136 


012711 


001400 


1623 


J12142 


105200 




1624 


012144 


001376 




1625 


U12146 


162/04 


000002 


1626 


012152 


001404 




1627 


£12154 


016437 


012252 


1628 


('•12162 


i/00767 




162i 


bl2164 


9S2J62 


005300 


1630 


012172 


005011 




1631 


• 1,12174 


062702 


000010 


1632 


012200 


000735 




1633 


C12202 


651662 


000002 


1634 


012206 


342762 


000007 


1635 


012214 


[• 16405 


012254 


1636 


£12220 


006305 




1637 


012222 


306305 




163« 


1*12224 


£06 305 




1639 


*12226 


006 J05 




1640 


H2230 


U"2/05 


17,6777 


16*1 


1,12234 


060562 


000002 


1642 


fel2240 


022626 




1613 


4*12242 


012716 


012172 


1644 


jal 2246 






1645 


012250 


000207 




164t> 








164/ 


012252 


F00000 




io44 


«12254 


000000 




1649 


01225b 


000200 




1650 


./12260 


Z00240 




1651 


ttl 2262 


000300 




1652 


012264 


000340 




1653 








1654 








1655 


F1226o 


1 05777 


166712 


1656 


'.122/2 


1 00375 




165/ 


.1227 4 


01 7 70 3 


166706 


1659 


k/1230 1 


105777 


16o704 


1659 


'112304 


100375 




1660 


012306 


•M0377 


16670f> 


16t>l 


L12312 


:.427J3 


00024M 


166/ 


i'12316 


IS00237 
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7SI 



MOV 


#302, Rl 


;PC OF IOT 1NSTR. 


HOV 


Rl, CR0)+ 


; start filling vector area 


HOV 


14, IR1) + 


;WITH ,+2» IOT 


CMP 


CR0J+,(R1)+ 


; ADD 2 TO R0 +R1 


CMP 


Rl,#1000 




BLOS 


IS 


;BR IF MORE TO FILL 




DMACTV* 


; STORK TEMPORALLY 


ROR 


TEMPI 


; BRING OUT A BIT 


BCC 


58 


;BR IF ALL DONE 


MOV 


K12.R4 


;R4 IS INDEX REGISTER 


HOV 


BRLVL(R4),PS 


;S£T PS TO 7 


MOV 


CR2),R1 




MOV 


#200,4(R1) 




MOV 


IBIT9,(R1) 


;SET ROMI 


HOV 


I121111|6(R1) 


;PUT INSTRUCTION IN PORT 6 


MOV 


:BIt9iBIT8,CRi; 


} FORCE AN INTERRUPT 


INCB 


R0 


> STALL 


BNE 


.-2 


;FOR TIME TO INTERUPT 


SUB 


«2,R4 


;GET NEXT LOWEST PS LEVEL 


BEQ 


6$ 


;BR IF R4 » 


MOV 


BRLVLCR4),PS 


jMOVE NEXT LOWER LEVEL IN PS 


BR 


7$ 


;BR TO DELAX 


BIS 


I5300.21R2) 


;N0 INTERUPT ASSUME 300 AT LEVEL 


CLR 


(Rl) 


; CLEAR ROMI 


ADD 


•10, R2 


;POP SOFTWARE POINTER 


BR 


28 


; KEEP GOING 


BIS 


(SP),2(R2) 


;GET VECTOR ADDRESS 


BIC 


#7,2(R2) 


iCLEAR JUNK 


HOV 


BRLVL+2(R4),R5 


:GET BR LtVKL OF DMC11 


ASL 


R5 


> SHIFT LEVEL 4 PLACES 


ASL 


R5 


; TO THE LtFT FOR THE 


ASL 


R5 


; STATUS TABLE 


ASL 


R5 




BIC 


*170777,R5 


;CLLAK UNWANTED BITS 


BIS 


R5,2(R2) 


;PUT bR LEVEL IN STATUS TABLE 


CMP 


(SP)+,(SP)t 


;POP IOT JUNK OFF STACK 


HOV 


US, (SP) 


jSET FOR RETURN 


RTS 


PC 


; ALL DONE WITH "AUTO SIZING" 





1 LEVEL 







> LEVEL 




200 


I LEVEL 4 




240 


f LEVEL 5 




300 


S LEVEL 6 




340 


;LEV£L 7 




TSTB 


MTKC5R 


JWAIT FOR DONE 


BPL 


.-4" 




MOV 


PTKDBR, R3 


;PUT CHAR IN R3 


TSTB 


9TPCSR 


;WA1T UNTIL PRINTER IS PEADX 


BPL 


.-4 




MOV 


R3 , PTPDBR 


;ECHO CHAR 


BIC 


*BIT7!B1T5,R3 


; MASK OFF LOWER CASE 


KTS 


PC 


; RETUKN 
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1663 

1661 01000 

1665 t'12323 900>)00 (91100 ROMMAPI .POINTER 10 HI OR LO SPEED MICRO-CODE 

1666 01200 

1667 012322 01300 LOMAPt ;LOW SPEED (REMOTE) MICRO-CODE 
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5 




6 


. TITLE 


7 

8 


. SBTTfj 




J 

•SBTTL 


10 


.SBTTL 




. SbITIj 


12 


.SBTTL 


13 


.SBTTL 


14 


.SBTTL 


15 


.SBTTL 


16 


•SBTTL 


17 




18 


! SBTTL 


19 
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2 1 


00 00 00 






22 




;MICROpp0CLSS0R 


INSTRUCTION WORD UEFlNITlONb 


23 


000000 


MOVE=0 


; OPCODE MOVE 


24 


1 00000 


JUMP* 100000 


r UrLvUt JUNr 


25 


020 V? 00 


I BUS=20000 


J dUUK^L 1SU0 


26 


00 0000 


1MM80 




27 


040000 


MEM X* 40000 






060000 


BRXs60000 


? SOURCE BR 


2 9 


060000 


BR*60000 


■ fcAtlDfT DD 
jDUUKlL DK 




360000 


DP*60000 


7 SOURCE BR 


32 


01 0000 


LDMAR* 10000 


t utar.Ain mad in 

J nA B uvnU «A« LU 


33 


01 4000 


INCMARsl 4000 


■ M J\m 1* iilf" UPHVHT UlD 
$ nA'inWnCinEin A 


J 4 


J0400 


WRTEBR*4fc)0 


* nciii'.UDTfr dd 

f Uboi a Nnl ID OK 


35 


00 1 000 


WR0UTX*1 000 


" 0EST — EXTENDED IBUS 


36 


001 400 


SHFTBR*1400 


;Dest*shift bf left 


37 


002000 


WROUT"2000 


idest* write output 


38 


002400 


WRMEffc2400 


j DEST'WkITE memory 


39 


003000 


£PXs3000 




40 


003400 


SPBRX*3400 


*DEST"WRlTE SP AND BR 


4 1 




" FUNCTIONS 




42 


000200 


SELA&200 


j r um i ivn"QLbLv a a 




01710 * 




7 funCtiqn»select b 


44 


Gvvt *kv 


A0RNBc2 40 


jFUNCTION*A OR NpT B 


4S 






; function a and b 


46 


cum 3 a 01 




J r U"V. 1 lvn*A UK D 


47 


000320 




f triNrTtriN ft Y/lD Q 
J r u « V 4 A v n A JM n D 


48 


000340 


SUBs 340 


J oUDTttAU 1 




000360 




• frfTiif*+T fiM. Tunc rntior ruiruT ciiaToiri 1 
7 r uivIivN" 1 Hvo wunruCinciR i oud ikaw * 


5k) 


000000 




I ADD A+B ~ 




000020 


ADDC&20 


• ft iRa^I dDV 
7 fttOtliilKKI 


5 2 


0000 40 


5UBC>40 


•A«»B*C 


53 


000060 


XNCA=60 


■ TlirDK'MrNT B 


54 


000 1 00 




• a' &r.fiA~f*ADbv 
f n r liUo wAKM 


55 


ana 1 ji 


A«»l 20 




56 


000 140 


AAC* 1 40 


■ & dT.iik a Df.fic r* 
; a ruUO a ruud i- 


57 


000 1 6*9 


DECAs-i 60 




58 




* END FUNCTIONS 




59 


004000 


PAG&1*4000 






01 0000 


P AGE2* 1 0000 




61 


014000 


PAGE3>14000 




62 


001000 


CCONDsl000 


;C0NDIT10N C 


63 


301400 


ZCOND«1400 


Condition 2 


64 


300400 


ALCOND=400 


; ALNASfS 


65 


002000 


BR0CONB2000 


fCONDITlON BR0 


66 


£02400 


BR1CON«2400 


(CONDITION BR1 


67 


003000 


BR4COR>3000 


{CONDITION BRA 


6d 


003400 


BR7CONB3400 


(C0N0XTI0N BR7 
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7 .J .SBTTb MICRO INSTRUCTION DEFINITIONS 

71 , SBTTij BRANCH INSTRUCTIONS 



72 



JUMp»100000 j JUMP OP CODE 



81 ; 

Hi ; 

9« ; 

99 ; 

104 ; 

109 J 

114 .SBTTL INDEXED BRANCH INSTRUCTIONS 

Hi 1 

120 j 

12= > 

13d ; 

135 J 

1 40 ; 

145 } 

150 .SBTTL MOVE INSTRUCTIONS 

151 ; " ' 

152 000000 MPVE*0 |M0VE OPCODE 

153 ; 
153 j 
163 ; 
168 ; 
173 » 
178 ; 
IV I ; 
192 ; 
197 f 
202 ) 
2tf7 f 
212 ; 
221 ; 
230 f 
235 ; 
240 } 
245 

252 
256 
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258 




.SBTTL INPUT/OUTPUT 


ASSIGNMENTS 


259 




;IBUS ASSIGNMENTS 




260 


100000 


INCONB0+100000 


;IN CONTROL CSR 
;MA1NTAINENCE REGISTER 


261 


100020 


MAINS20+100000 


262 


1004; 40 


OCONs40+100000 


;OUT CONTROL CSR 


263 


100060 


UBADDRso&t 100600 


; UNUSED 


264 


100100 


PORTl>100+!00000 


;CSK4 


265 


100120 


PORT2M20+100000 


;CSR5 


266 


1001 40 


POP.T3«140+100000 


;CSR6 


267 


100160 


PORT4=160+100000 


;CSR7 

;NPB CONTROL 


268 


100200 


NPRB200+100000 


269 


1 00220 


UBBRB220tl00000 


;BRtINTERRUPT)CONTROL 


270 


000000 


INOAT1B0 


; INPUT DATA LOW BYTE 


271 


£0o020 


INDAT2=20 


j INPUT DATA HIGH BYTE 


272 


0001 40 


1OBA1M40 


•OUTPUT BA LOW BYTE 


273 


300160 


XOBA2S160 


f OUTPUT BA HIGH BYTE 


274 


0001 00 


1IBA1«100 


; INPUT BA LOW BYTE 
f INPUT BA HIGH BYTE 


275 


&00120 


IIBA2*120 


276 


000200 


KCVDATB200 


; RECEIVE UA'fA 


277 


000220 


TMTCON«220 


; TMTR CONTROL 


278 


1)00240 


P,CVCOH*240 


;RCVR CONTROL 


279 


300260 


HODEM*260 


; MODEM CONTROL 


280 


000300 


SYNREG&300 


;SYN REGISTER 
jLINE NUMBER SWITCH 


281 


000320 


LNOSWB320 


282 


000340 


BM873B340 


;BM873 ADDRESS 


283 


000360 


LUMAIN3360 


;LINE UNIT MAINTAINENCE 


284 




JOBUS ASSIGNMENTS 




285 




; EXTENDED OBUS 




286 


000000 


OINCONib 


;XN CONTROL CSR 


287 


000001 


OHAIN=l 


;MAINT 


288 


P00002 


OOCONB2 


•OUT CONTROL CSR 
j UNUSED 


284 


£00003 


OUBADDs3 


29a 


000004 


0P0RT1=4 


;CSR4 


291 


000005 


OPORTJbS 


;CSR5 
;CSR6 


292 


000006 


OPORT3»6 


293 


£00007 


0P0RT4«7 


;CSR7 


294 


000010 


ONPRB10 


;NPR CONTROL 


295 


00001 1 


OBRrll 


• BR CONTROL 


296 




; UNEXtENDED OBUS 




297 


300002 


0UTDA1S2 


•OUTPUT DATA LOW BYTE 


298 


000003 


0UTDA2B3 


•OUTPUT DATA HIGH BITE 


299 


000006 


0BA1S6 


jOUTPUT BA LOW BYTE 


300 


000007 


OBA2«7 


; OUTPUT BA HIGH BYTE 


301 


U00004 


IBA1B4 


; INPUT BA LOW BYTE 


302 


000005 


IBA2«5 


;INPUT BA HIGH BYTE 


303 


000010 


TMTDAT=10 


> TMTR DATA 


oat 


000011 


OTMTCObII 


; TMTR CONTROL 


305 


800012 


ORCVCOB12 


;RCVR CONTROL 


30b 


000013 


OMODEMB13 


; MODEM CONTROL 


307 


000014 


SYNC«14 


;SYN REGISTER 


308 


000017 


OLUMA«=17 


;LINE UNIX MAINT. 
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310 
317 
324 
329 
333 
337 
343 
349 
350 
3S1 



SBTTL PROTOCOL DEPENDANT MACROS 



HICPC=177777 



;INIT MICRO PC 



DHC-1! MICROPFtOCfcSSOR INSTRUCTIONS MACY11 30(1^46) U-JUL-77 12118 PAGE 5 PAGE! 0058 

LOW. MAC " 13-0CT-76 14:33 OMCll DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

353 .SBTTL DMC11 DDCMp MICRO CODE ASSEMBLED f OK USE WITH THE M8201 LINE UNIT 

354 0»0000 LOW*0 

355 £00000 $LOW*0 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 



MACm 30(1046) U-JUL-77 12118 PAGE 6 



ODCNfcW.MAC 


21-HPH-77 10J0B 


DPCU DDCMP Hit 


359 




.TITLE 


36a 




. IDENT 


361 




.SBTTL 


362 




.SBTTL 


363 




.SBTTL 


364 




. SBTTL 


365 




.SBTTL 


366 




.SBTTL 


367 




.SBTTL 


368 




.SBTTL 


369 




.SBTTL 


370 




.SBTTL 


371 




.SBTTL 


37 2 




.SbTTL 


373 




.SBTTL 


374 




.SBTTL 


375 




.SBTTL 


376 




.SBTTL 


377 




.SBTTL 


37*3 




.SBTTL 


379 




.SBTTL 



WITH THb M8201 LINE UNIT 



MARCH 17,1975 



VERSION 00C NOVEMBER 6, 

RETRANSMISSION CHANGES 



DECEMBER 3,1975 



THE LATEST MODIFICATIONS WERE ADDED ON I 
OCTOBER 13, 1976 
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381 




. S&TTL MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


382 




; ALLOCATION OF 


MICROPROCESSOR MAIN MEMORY 


383 


000000 


NAKSR'0 


;NAKS RECO— DYNAMIC 


384 


000001 


NAKST«NAKSR+1 


; NAKS THTED--DYNAMIC 


385 




REPSRsKAKST+i 


{REPS RECD— DYNAMIC " 


386 


000003 


REPST«REPSR+1 


J REPS TMTED— DYNAMIC 


387 


000006 


NPtREPST+3 


; CONSTANT 


388 


00000? 


HTLRbNP+1 


1NAKS-HSG NO BUFFERS CUMUL. 


389 




NHDR«NTLR+i 


{NAKS-HSG HEADER BAD 


390 


000011 


NDATR=NHDR+1 


; NANS-DATA BAD 


391 


900012 


NTLSrNDATR+1 


;NAK SENT —NO BUFFERS 


392 


400013 


NHDS»NTLS+1 


;NA* SENT BAD HEADER 


3S5 


3 4 


MDATS*HHDS+i 


{nAK SEH? SAD DATA 


3S4 


300015 


REPCS-MUATS+l 


{REPS SENT CUMUL. 


395 


300016 


REPCRsREPCS+1 


;REPS RECD CUMUL 


39b 


000017 


BASE»REPCRtl 


" {CORE TABLE BASE ADOREI 


397 


000022 


SRC-BASE+3 


; START OF INPUT CHAIN- 


398 


000023 


ERC«SHC+1 


;END OF INPUT CHAIN 


399 


000024 


LRCsERC+1 


{LAST POINTER RECD 


400 


C00025 


RCL1»LRC+1 


{RECEIVE LINK #1 


401 


900032 


RCL2»RCLl+5 


.; '■" #2 


402 


000037 


RCL3&KCL2+5 


j ■ " #3 


403 


000044 


RCL4=RCL3+5 




404 


£00U51 


RCL5=RCL4+5 




405 


900056 


RCL6XKCL5+5 




406 


U00063 


RCL7»KCL6+5 




407 


000070 


STC«RCL7*5 


J START OF OUTPUT CHAIN' 


408 


300071 


LTC«STC+1 


;LAST TRANSMITTED 


409 


300072 


ETCxLTC+1 


;END OF TRANSMIT CHAIN 


414 


000073 


TMLl=ETC+l 


{TRANSMIT LINK #1 


411 


000101 


TML2=i«Ll*6 


; " " " 12 


412 


000107 


TML3=TML2+6 


f * " *3 


413 


0001 IS 


TML4=THL3+6 




414 


000123 


TML5=THL4+6 




415 


?B0131 


THL6*TML5+6 




416 


000137 


TML7*THL6+6 




417 


900145 


TML8aTML7+6 




418 


000153 


TSTHL8+6 


j TYPE FiELD 


419 


000154 


ST«T+1 


J SUBTYPE FIELD "" 


420 


000155 


ISP17=ST+1 


j msg acked Image 


4?1 


300156 


Tllf 4 ami GDI lil 

A 1 0* I or 1 7 t 1 


{IMAGE OF BIT 1 OF SPlI 






IHG11»IMG10*1 


{IMAGE OF SPU 


423 


8tfiil&«? 


IKGi2=ISGii+i 


f In AGE Or or 12 


424 


00B161 


I«G17*IMG12*1 


{Image of spi7 


425 


000162 


PRTST«IHG17*1 


{PORT STATE 


42t> 


300163 


TYPTABsPRTSTtl 


; TYPE TABLE— 


427 






{72 TYPE TABLE REP 


428 






{73 * " NAK 


429 


900165 


TYPSTT»TYPTAB+2 


{74 * * START 


430 






{75 * " STACK 


431 

432 






I 

t 


433 


300170 


0STATE»TYPSTT+3 


; OLD STATE POINTER 


434 


000171 


1SP11*0STATE+1 


{SP11 IMAGE 


435 


00i;i72 


ISP12*ISPlltl 


JSP12 IMAGE 


436 


000173 


INC0MSBISP12+1 


{IN CONTROL CSR IMAGE 
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437 
438 
439 
440 
441 



P00171 
F00240 
000241 
000242 
000400 



RTHRS*INC0NS+1 

NXTINT«240 

NXTSP«NXTINT+1 

INTSTKxNXTSP+1 

MMENDK400 



JRECV THRESHOLD LINK 
JNEXT INTERRUPT POSITION 
{ END OF INTERUPI CHAIN 
{STACK OF INTERUPTS 
{MAIN MEMORY END 
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ddcnew mac 


21— APR— 77 10(08 


SCRATCH PAD ASSIGNMtNTS 


4 4 3 




. SBTTL 


SCRATCH PAD ASSIGNMENTS 


444 


&000S0 


bP0x0 


; SPtf ---SCRATCH REGISTER 


11* 


00000 1 


5Pi*l 


; SP I —"—PORT status word 


*: 






; BIT ASSIGNMENTS 


lap 






yBIT0»— IfllT MODE 


la 






;BlTl»-5EC STATION SELECT(UNUSED) 


449 






i8lT2— NO BUFFER ASSIGNED IN BOOT MODE 


45k) 






jBlT3»~DLE RECEIVED WHILE NOT IN MAi'NT MODE 


45 1 






i B I T4** INTERRUPT PENDING 


45i! 






1BIT6-— DISCONNECT ERROR 


45 3 






jbit7-*boot mode 


454 




SP2*2 


j SP2---TRANSM1T STATE POINTER 


455 


&00tt03 


SP3»3 


l SP3—»— RECEIVE STATE POINTER 


456 


900004 


SP4x4 


j 5P4*— "END RECV ADDRESS 


45 7 


000005 


SP5*5 


lSP5"*"END RECEIV& ADDRESS 


458 


000006 


SF6»6 


*, SP6---END TRANSMIT ADDRESS 


459 


000007 


SP7»7 


} SP7 ~--END TRANSMIT ADDRESS 


460 


0000 1 


SP10C10 


;SP10---LINE STATUS WORD 


46 1 






I BIT ASSIGNMENTS 


It. a 






tBITft— -UNNUMB PENDING 


463 






1 BITi ••MESSAGE IN PROGRESS 


464 






■ 8IT2— — LINE " HAS "GONE IDLE 


465 






iBlT3»"START RECETV&D 


466 






iBIT4-*CLEAR ACtlVE'ON END 


467 






iBIT5*-START MODE 


468 






c BITS— —HALF DUPLEX 


469 






;BIT7— OK TO SEND 


47*) 


90001 1 


SP11«11 


>SP11— R FIELD 


4 71 


00001 2 


SP12»12 


;SP12— N FIELD 


472 


000013 


SP13*13 


fSP13— TYPE " 


473 


000014 


SP14»i4 


;SP14— RECEIVE LINK IMAGE 


474 


00B015 


SP15«i5 


|SPi5— TIMfcR ENTRY-— NUMBER OF ONE SECOND TICKS 


475 


000016 


SP16'i6 


JSP16-- -POINTER TO TMT LINK COPY IN MAIN MEM " 


476 


0000 1 7 


SP17=17 


?SP17— LAST MESSAGE ACKNOWLEDGED 
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478 






.SBTTL IN1T— INITIALIZATION ROUTINE 


479 






; ZEROS WAIN MEMORY 




480 






; LOOPS WAITING FOR RECEIVE DATAIBOOT?) 


481 






;0R FOR RQI TO BE SET 




482 
483 






(WILL ACCEPT ONLY BASE FORMAT. 


ALL OTHERS N1LL RETURN A PROCEDURE ERROR 


484 






! AT INITIALIZATION THE HARDWARE CLEARS THE BR AND MAR 


485 




012322 


.-12322 




486 


B12322 




INITt SP BR»SELB,SP0 


;CLEAR SP0 


( 1 ) 




000000 


MICPC»M1CPC+1 




(1) 


112322 


U63220 


<MOVE 1 SPXi BR t SELB ( SP0> 




48 7 


U12324 




SP ~ BR,SELB,SP3 


(PAGE ONE TKANSFER ADDRESS 


(1) 




400001 


MICPC«M1CPC*» 




(1) 


.112321 


k,63223 


<M0VElSPXtBRlSELBlSP3> 




488 


tfl2326 




SP ~ BR,SELB,SPl7 


jCLEAR SP17 


(1) 




9U0002 


MICPC«M1CPC+1 




(1) 


!M2326 


06323? 


<M0VElSPXlBRtSELBJSPt7> 




489 


H12330 




OUT ~ BR,<SCLAiOINC0N> 


;ZERO THE IN CONTROL CSR 


(1) 




000003 


MICPC"HICPC4i 


(1) 


012330 


061200 


<MOVEIWR0UTXiBR:<SELA!0INCON» 




490 


U12332 




OUT BR,<SELA!00C0B> 


;ZERO THE OUT CONTROL CSR 


( 1 ) 




(00004 


MICPC«M1CPC+1 


(1) 


012332 


061202 


<M0 VBl HKOUTX ! BR 1 <SELA 1 OOCON» 




491 


S12334 




SP " IMM,37tl»SP10 " 


(WRITE 5 ONb BITS TO THE HIGH ORDER 


(1) 




000005 


MICPC»MICPC+1 




(1) 


012334 


003370 


<MOV£! SPX! IMM ! 3701 SP10> 




492 








(BITS OF SP10 


493 


4J12336 




5$: SP BR,AA,SP10 


; SHIFT SP10 LEFT SETTING CAKRX THE 


( 1 ) 




000006 


MICPC«MICPC+1 




(1) 


B12336 


P63130 


<MOVE!SPX!BR1AA!SP10> 




494 








; FIRST 5 TIMES THRU THE LOOP 


495 


IH 2340 




HEMINC BR,AD0C:SP3 


( WRITE A ONE TO THE FIRST 5 MEMORY 


(1) 




300007 


MICPC«M1CPC+1 




(1) 


012340 


e?6423 


<MOVEl WPHEM J INCMAR J BRK ADDC I SP3>> 


496 








; LOCATIONS AND ZERO THE REST 


497 


012342 




SP BR,INCA,SP0 


; INCREMENT COUNTER 


11 ) 




000K10 


MICPC«M1CPC+1 




(1) 


012342 


063060 


<MOVE1SPX1BR1INCASSP0> 




498 


B12344 




Z " 108 


; ALL DONE 


(1 ) 




000011 


MICPC»MICPC*1 




(1) 


012344 


10141 3 


<JUMPtZCONDj<i0$-INIT&3000»4>l<108-lNITS7 77/2» 


499 


H12346 




ALWAYS "5$ 


(KEEP GOING 


( 1 ) 




000012 


MICPC*H1CPC+1 




( 1 ) 


012346 


100406 


<JUMP1 ALCONDJ<5S-INITfc3000*4>:<5g-INlTi77 7/2>> 


500 


012350 




ltfSj SPBR ' IMH,1,SP1 


(WRITE A 1 TO THE BH AND SPl 


( 1 ) 




400013 


HICPC«MICPC+1 




(1 ) 


012350 


P03431 


<M0VE1SPBRX! IMM 11 JSP1> 




501 


k. 1 2 352 




SP BR,StLB,SPll 


; WRITE A 1 10 SP11 


( 1 ) 




00001 4 


MICPC*M1CPC+1 




( 1 ) 


612352 


<"6323l 


<M0VESSPX1BRJSELBJSP11> 




502 


1)12354 




i>P BR,SELB,SP12 


;WRIlfc A 1 TO SP12 


( 1 ) 




000015 


hlCPC*MICPC+l 


(1 ) 


012354 


163232 


<H0VElSPXlBRiSELb!SP12> 




5k>l 


»1235b 




LOMA IM* , PRTST 


(POINT MAH TO UNNUK MSG SKELETON 


( 1 ) 




i»<J0lb 


IUCPC = MICPC+1 




i 1 ) 


0I 235t> 


ji »i bi 


<MOVEI LUMAH! IMM ! <PRT5Tfc377» 
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01 2360 




PSTATI NIDLE2 


; WRITE PORT IDLE STATE 




01 2360 




HEMINC IMM,«NIDLE2-INlTS777/2» 


W \ 




GOtftu 1 i 


MICPC»MICPC+1 




C 2 ) 




#lb520 


<MOV£I WRMEM1 INCMARJ IMMi«NIDLE2~ 


INlT6777/2»> 


( 1 ) 


C 1 2362 


'J 02*5 2 9 


BRNRTE IMM, 226 
MICPCiMlCPC+1 


; WRITE SYNC TO MEMORY 


( 1 ) 


*« tat a 




<M0VE1WRTE6RJIMHI«226» 




?f ^ 


012364 




OUTPUf BR, SELBISXNC ;LOAO THE SYMC RElilSTER 


( 1 1 






MICPC»HiCPC+i 




C 1 ) 




fcb2234 


<HOVEINROUTiBRKSELBlSXNC» 










MEMINC IMM, 3 


;REP 


r t 1 

r I 1 






MIC£C*HICPC+1 








£16403 


<M0VE1 WRHEM J INCMARJ IMM J<3>> 




5i58 
(1) 


*| 


000023 


HEM I"M,2 
HICPC»M1CPC+1 


;NAK 




1 2 370 


jt^tf 2 402 


<M0VE1 WRHEM 1 1MMJ<2» 






1)1 2 372 




SP ~ HEHXJ1NCMAR,SELB,SP15 


J SET STARTING COUNT 


(1) 




000k) 2 4 


MICPC*N1CPC+1 


j 


01 2372 


057235 


<MOV t J SPX 2 MEMX 1 INCMARJ SELB J SP1 5> 






01 2374 




MEMINC IMM, 6 


; START 






£717 IF It £ 3 


MICPC"M1CPC+1 






01 6406 


<HOVE 1 WRMEM I INCH AR J IMM J <§» 




511 


B12376 




MEMINC IMM,7 
HICPC*M1CPC+1 


; STACK 


( 1 ) 


012376 


016407 


<MQVE J WKMEM 1 INCMARJ IMMJ<7>> 




512 
( 1 ) 


01 2409 


000027 


MEMINC IMM,1 
MICPC"MICPC+1 


;ACK 


( 1 ) 


bl 2 » 04) 


01 6401 


<MOVE I WRMEM I INCMARJ IMM 1<1» 




?! f 


01 2*02 




LDMA IMMfSTC 
HICPC*HICPC+1 


;LOAD ADDRESS OF LAST TMT CHAIN 






£000 30 




Ml 


^12402 




<MOVElLbMARJIMMJ<STCS377» 




511 

. ~ . 


A\ 24& 4 






; STORE AOURiSS OF FIRST TMT LIMK 






000031 


MICPC»HICPC+1 




11) 


012404 


0164 7 3 


<H0VCI WRHEMlINCMARUHMKTHIil» 




515 


01 2406 




MEMINC IHM^TMLl 




( 1 ) 




000032 


HICPC'MICPC+1 




( j ) 


feil 2406 


016473 


<MOVElW^HEHIlNCMARUHMi<TMLl» 






L 1 2 410 




MEMINC IMM,TMLl 




CI) 




000033 






( j ) 


16 1 24 10 


V1647 3 


<MQVEl WRMEMJ INCHARJ 1MMJXTM"L1» 






012412 




LDMA " IMM, SRC 


;LOAD ADDRESS OF LAST RECV CHAIN 


(1) 




000034 


MICPC«M1CPC+1 






fel 241 2 


010022 


<MOVEiLDMAR;iMMI<SRC&377» 




518 


01 241 4 




MEMINC IMM,RCLl " ' " , 


;SET UP ADDRESS OF FIRST RECV LINK 


(1) 




900035 


KiCPCiHlCPC+1 








1316425 


<MOVEl WRMEM J INCMARJ IMMJ<RClil>> 




519 
( 1 ) 


012416 


000036 


MEMINC IMM.RCLl 
HICPOMICPCtl 




(1) 


01241o 


1-16425 


<MOV£ I WKMEM 1 INCMARJ IMM KRCL1>> 




520 
CI) 


012*20 


000037 


MEMINC IMM,RCL1 
MICPXiMlCPC + l 




CI ) 


31242a 


016425 


<MOVEl HRMEMJ INCMARJ IMM {<RCL1» 




521 
CI) 


!Ji2«22 


000040 


LDf.A " I«K,HXTIKT " 
MICPC«MICPC+1 


f ADDRESS CJF NEXT INTERRUPT POINTER 


(1) 


»12422 


010240 


<MOVElLDHAR:IMMKNXTINTfc377» 




522 


112124 




MEMINC IMM, INTSTK 


; INITIALIZE NEXT INTERRUPT 
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CI) 




£000 41 


HICPC«M1CPC+1 




(1) 


012424 


B16642 


<M0VE1 WHMEH1 INCMARIIMM J< INTSTK» 




523 


012426 




HEM IMM, INTSTK " 


f INITIALIZE INSERTION POINTER 


CI) 




000042 


MICPC»H1CPC+1 


CI) 


012426 


002642 


<H0VE1 WRMEMJ IMMJ<INTSTK» 




52» 


012430 




BRWRTE IMM, 200 


; WRITE THE RUN BIT TO THE BK 






£30043 


HICPC=SiCPC*i 




U) 


U12430 


3D0600 


<M0VE1 WKTEBRJ IMM J<200» 




525 


012432 




OUT " BF,<SELBJOMAIN> 


} WRITE THE RUN BIT TO MA1NT CSR 


CI) 




000044 


MICPC«M1CPC+1 




CI) 


012432 


061221 


<HOVEIWkOUTXlBRKSELB10»AIN» 




526 








;FALL INTO IDLE LOOP 
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533 






534 






535 






536 






537 






538 


HI 2434 




(1 ) 




000045 


( 1 ) 


1*1243 * 




539 


01243b 




( 1 ) 




000046 


( 1 } 


01243b 


1 12400 


540 


612440 




CI) 




0000 4 7 


C 1 ) 


012440 


1 12003 


511 


012142 




( i j 




300050 


( 1 ) 


013442 


1 00452 


542 






543 


12 44 4 




( 1 ) 




1300051 


( 1 ) 


012444 


063222 


544 


f 12446 




( 1 ) 




000052 


(1) 


i-12446 


020640 


545 


i>12450 




(1) 




3190053 


( 1 ) 


012450 


167203 


546 


012452 




(U 




000054 


(1) 


012452 


(710162 


547 


►-1245 4 




(1) 




000055 


(1) 


H2454 


140620 



.SBTTL IDLE— PROGRAM IDLE LOOP 
| PROGRAM IDLE LOOP 

(DISPATCHES TO APPROPRIATE SERVICE ROUTINES 
; USES STATE POINTERS FOR TMT,RCV,CSft ACTIVITY 

; 

BRWRTE BR,<SELA!SP10> ; READ TRANSMIT STATUS WORD (ROM SP10 TO BR 

MICPCiHiCPC+1 

<M0VE1 WRTEBK ] BR! <SELAi SP10» 

BR1 TMTDA ;IF DATA TO SEND— BRANCH 

MICPC«M1CPC+1 

<JUMP|BRlCONJ<TMTDA-INlTfc3000*4>KT«TUA-INITfc777/2» 

BR0 TMTDA ; IF DATA TO SEND— BRANCH 

MICPC*MICPC+1 

<JOMP!BR0CONKTMTDA-INITJ,3000*4>l<TMTDA-INIT4777/2» 

ALWAYS II 

MICPC»MICPC+1 

<JUMP!ALCONDI<Il-INlTfc300B*4>l<H-INITfc777/2» 
f 

SP BR, SELB, SP2 

MICPC"MICPC+1 
<MOVEI SPXiBRi SELB 1 SP2> 
BRWRTE IBUS,RCVCON 
MICPC«M1CPC + 1 

<MOVEiWRT£BRSIBUSI<RCYCON» 
.BR4 BR,SELA,SP3lPAGEl 
MICPC»M1CPC+1 

<JUMPI BR4C0NlBRlSELAtSP31PAGEl> 

LDMA IMM, PRIST ~ ; ADDRESS PORT STATE 

HICPC«HICPC+1 

<HOVE!Li>MAR!IMM|<FRTSTt377» 
. ALWA Y MEMX,SELB,0 
MICPC«MlCPCtl 
<JUMP: ALCO(jDlMEMXlStLB10> 



JREAD LINE UNIT RECEIVE CONTROL NORD 



; BRANCH BASED UPON RECV STATE 



; INDEX 
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MAC 


J1-APK-7 


549 






550 


L' 12456 




( 1 ) 


I t 2 45b 




(2) 




000056 


(2) 


fc>12»56 


002520 


551 


1*12460 




(1) 




003057 


(1) 


1*1246*) 


010017 


552 


£12462 




(1) 




000060 


(1) 


U12462 


1 36504 


55 3 


412464 










CI) 


912464 


1 36520 


554 


912466 




(1) 




000062 


(1) 


012466 


122560 


555 


01 2470 




en 




300063 


(1) 


012470 


12 3000 


556 


1012472 




11 ) 




000064 


(1) 


012472 


004500 


557 


•12474 




(1) 




000065 


(1) 


1012474 


061260 


558 


k»12*76 




(1) 




£•00066 


(1) 


912476 


300520 


559 


012509 




(1) 




000067 


(1) 


012500 


062233 


560 


012502 




CI) 




0000 70 


C 1 } 


•12502 


040620 


561 


912504 




(1) 




P00071 


CI) 


012504 


103100 


562 


612506 




(11 




•>00072 


C 1 ) 


r 12 506 


010153 


563 


012510 




(1) 




0H0O73 


C 1 J 


S12510 


El 6436 


564 


012512 




CI) 




300074 


CI) 


012512 


U02730 


565 


012514 




C 1 ) 




S00075 


CI) 


912514 


;<6316l 


566 


012516 




( 1 ) 




i'i)t:076 


( 1 ) 


-412516 


000641 


5b / 


-M2520 




( ! ! 




'„<!««; 7 7 


( t 3 


M2S2.) 


1 I v> * 3 J 



NACY11 30(1046) ll-JUL-77 12118 PAGE 6-8 
BASSRV—- BASE SERVICE ROUTINE 



.SBTTL 

BASSRVS PSTATE 
MEM 



BASE SERVICE ROUTINE 



BASSRV— 
NIDLE2 

IMM,«NIDLE2-INIT*777/2» 
MICPC»MICPC+1 

<M0VEINRHEM!IMM!«NIDL£2-Illin777/2»> 
LDMA " IMM, BASE 
HICPC*MICPC+1 

<M0 VE 1 LDMAR ! IMM 1 <BASEfc37 7» 

MEMINC IBUS,P0RT1 J READ CSR4 

MICPCimCPC+1 

<M0VE1HRMEM11NCMAR1IBU3KP0RT1» 
HEMINC IBUS,P0KT2 " ; READ CSR5 

nICPC»«iCPC+l 

<M0VE1HSMEH!INCMAR1IBUS1<P0RT2» 
MEM IBUS f P0KT4 " 

MICPC«M1CPC+1 
<M0VE 1 WRMEM 1 IBUS 1 <P0RT4» 
SP " IBU$,INC0N,5PW 
MICPC'HICPC+1 
<MOVE1SP'X1IBUS1INCON1SP0> 
BRWRTE IMM, 100 
MICPC-M1CPC+1 
<MOVElHRTEBRiIMMi<100» 
OUT ~ BR,<AANUBI0INC0N> 
H1CPC«M1CPC+1 
<M0VElWtC0UTXlBRl<AAN0B10INCON» 

BRWRTE IMM, 120 ; MASK FOK HDX AND DTR 

MICPCiMICPC+1 

*MOVE I WHTEBR J IMM J < 1 20>> 

OUTPUT BR, <SELB ! OMODEM> 

HICPC«MICPC+1 

<MOVEl HROUTi 6R I <SELBI OHODEM» 
BRWRTE MEMX,SELB 
HICPCiMlCPC+1 
<MOVE 1 WPTEBR 1 MEMX 1<SELB>> 
BR4 " RESUME 
MICPC»M1CPC + 1 

<JUMP!BK4C0N J<RESUME-INlT6J000*4>I<RESUME-INlTfc777/2>> 



PAGE: 0067 



; CLEAR TO MAR SO IT POINTS TO BASE POINT 



; READ INPUT CONTROL CSR 



;CLEAR THE BR 



fCLfcAR THE INCONTROL CSR 



; READ StLb 



;1F SET RESUME 



LDMA IMM, T 
MICPC=HiCPC*l 
<M0VEJLUMAR!IMM|<TS377» 
HEMINC IMM, 6 
MICPCiMlCPC+1 

<MOVE: WHMEH1INCK.ARJ IHMJ<6» 
MEM IMM, 300 

MICPCM1CPC + 1 
<M0VE1 WRMEM S IMM !<300» 

SP BR,DECA,SP1 { TURN OCT INIT MOUE 

MICPC«M1CPC+1 
<M0VE1SPXIBRJDECA'SP1> 
bPWRTE IMM, 241 
MICPC*M1CPC+1 
<MOVE- WFTEBPI IMM1<2 41» 
ALWAYS SA3 
MICPC=MiCPC*l 

< JUMP J ALCONDl<5A3-INlTfc3000»*>!<J>A3-INITVi m/?» 



; LOAD ADDRESS OF TYPE FIELD 



; WRITE START TYPE TO MEMORY 



J WRITE SELECT AND FINAL TO MEMORY 



;SET OK TO SEND, STAKTMODE AND UNNUM Pb.NUl.NG 



DMCll DDCMP PROTOCOL IMPLEMENTATION 
DUCNErt.MAC 21-APR-77 10:08 



MAC If 11 30C104b) ll-JUL-77 12:18 PAGE 6-9 PAGE: 0068 

BASSRV— - BASE SERVICE ROUTINE 



568 
1 1 ) 


012522 


000 100 


RESUMES SP IMMfSP4f4 


i SET OP SP4 FOR COUNTING NPKS 


( 1 ) 


ttl 2522 


£03004 


<M0 VE1 SPX 2 IMH{ SP4 1 4* 




569 


(£12524 




SP BR#INCArSP10 


j SET UNNUMB MESSAGE PENDING TO 


CI) 




200101 


MICPC*HiCPC+l 




CI) 


fc?12524 


063070 


<HOVEISPXiBRtINCAiSP10> 




570 








; TRICK TRANSMITTER CODE 


571 


01 2526 




liDMA IMrt,8ASE 


; ADDRESS BASE TABLE" ADDRESS 








KICPOHiCPC + 1 


1 1 ) 


t 1 2526 


01 0017 


<HQVE1LUMARJIHM1<BASE6377» 










STATE FUDGE 


;SET TMTR STATE TO ENTER TABLE UPDATE 


( 1 ) 




0*0103 


MICPC«M1CPC+1 


^1 ' 




^007 36 


<HOVE I MUEBR 1 IHM I <FUDGE-I8IT4.7 7 7 /2» 


7.f 


£12532 




ALHA7S SB0 . ~ ' 


; GO SET UP HXT BITS AND AORESS OF BASE FOR NPRS 


1 1 ) 




0001 04 


HICPCeMlCPC+1 




( 1 ) 


012532 


1 10 462 


<JUMPlALCONDJ<TB0-INITS3000*4>!<TB0-INITi/77/2» 








BS2: LDMA IHM,IMG10 




(1) 




000105 


MCPC»M1CPC+1 








310156 


<MOVEILUMAP!IMM!<IHCU0*377» 




1 , 
( 1 ) 




000106 


SP " HEHX/ AORB, SP10 " 
MICPC*M1CPC+1 


; RESTORE BIT 1 OF SP10 


1 1 ) 


912536 


04331 


<H0 VE 1 SPX 1MEMX! AORB i SP10> 






012540 




sp ~ memxiinchar;selb,sph 


(RESTORE SP11 


CI) 




000147 


MICPC«HiCPC+l 




( l ) 


31 2540 


05723i 


<HOVElSPX!MEMXlINCHARlSELBtSPll> 


577 
( 1 ) 


012542 


£001 10 


SP ~ MEMXIINCMAR,SELB,SP12 
MICPCeHlCPC+1 


I RESTORE SP12 


CI) 


61 2542 


057232 


<M0VE1SPX1MEMXHNCMAR1SELB1SP12> 


578 


vl2544 




SP ~ MEMX, SELBiSPl7 " 


f RESTORE SP17 


11) 




0001 1 1 


MICPC«M1CPC+1 


( 1 ) 


91 2544 


E43237 


< MO VE 1 SPX i MEMX 1 SELB 1 8P1 7 > 




(1) 




000112 


sp ~ up n£r ii cp i a 

micpc«micpc+i~ 


;?UPK OFF UKS'JM MESSAGE PENDIKG ASC 




fe>l 2546 


063170 


<MOVEISPX!BRIDECAISP10> 


;ZEKO THE bKG 








STATE NIDLE2 


(PORT STATUS 


11) 




WJ1 1 3 


MICPC"M1CPC+1 




(1) 


312550 


000520 


<M0VEIWRTEBR1INMS<NIDIjE2-INIT&777/2» 








SP " BR,SELB,SPl3 


jSAVE IN SP13 - NOTE THAT STATUS READ INTO 


(1) 




000114 


MICPC*M1CPC+1 


( 1 ) 


012552 


063233 


<M0VEISPX1BRJSELBJSP13> 


;P.AM HAS TABLE UPDATE WHICH SAVED STATUS IN SP13 


584 


012554 




SP BR,DECA,SP1 


tCLEAR WIT MODE 


(1) 




0001 15 


MICPOM1CPC+1 


(1) 


012554 


063161 


<M0VE«SPX!BR1DECAJSP1> 




585 
11) 


U2556 


J00116 


BRWRTE IMM,200 
MICPCiMlCPC+1 


;SCI OK TO SEND 


(1) 
586 


»J12556 
012560 


300600 


<MOVE 1 WRTEBR ! IHH1<200>> 
ALWAYS SA3 




(1) 




0001 17 


MICPCiMICPC+1 




CI) 


»1256t> 


110733 


<JUMPlALCONDUSA3-I«ITS3000M>l<SA3-INIT*,777/2>> 



DMCH DDCMP PROTOCOL IMPLEMENTATION MACT11 30(1046) H-JOL-77 12118 PAGE 6-10 PAGE: 0069 



"NEW. MAC ii 


-APR-77 10:08 


NIDLE2- 


"NO CSR ACTIVITY STATE 


588 








. SBTTL NIDLE2— NO CSR ACTIVITY STATE 


58V 


-.-12562 




NIDLE2I 


BRWRTfc BR>SELA1SP1 J READ PORT STATUS WORD 


(1) 




300120 




HICPC«M1CPC+1 


(1) 


012562 


2J6<i601 




<M0 VE 1 WRTEBR J BR i <SELA 1 SP1 » 


594 


012564 






BR4 ~ OUTINT ' " 


11) 




300121 




MICPCMICPC+1 










< JUMP I SK4C0N i<CuIInT-IKITi3»0B*4>i<OUTInT-InlTk777/2»> 


59b 


012566 






SPBR ~ IBUSf INCON,SPS '" ;READ INPUT CONTROL CSR 


(1) 




J00122 




MICPC-MICPC+1 


CI) 


1*12566 


123400 




<MOVEISFBRX!IBUSJINCQN|SP0> 


597 


312570 






BRSHFt " j SHIFT IT RIGHT 


CI) 




200123 




MICPC*MICPC+1 


CI) 


1*12570 


£01620 




<M0VE1 SHFTBR 1 WRTEBR 1 SELB> 


598 


012572 






BR4 INMAT1 ; IF RQI SET — BRANCH 


(1) 




000124 




MICPC»M1CPC+1 


CI) 


»12572 


103155 




«JUMPJBP.4CONl<lNWATl-WiTi3000»4>i<INWATi-I»IT4777/2» 


599 








{TO" RE-READ THE IN CNTRL KEGISTER TO 


600 








;A RACE IN NICRO-P READ/UNiBUS WRITE 


6C1 


5512574 




NIDLE6: 


BRHPTE BR, SELA1SP1 (READ PORT STATUS 


(1) 




(700125 




HICPCiHICPC+l 


tl) 


012574 


863601 




<MOVE!HHTEBRtBR!<SELAJSPl» 


606 


1*12576 






BR0 " 10$ 


( 1 ) 




300126 




MICPC»MICPC+1 


11) 


fcl2576 


1021 31 




<JUMP!BI<0CON!<10$-INIX63000«4>J<10$-INIT&777/2» 


60S 


Ii 12600 






SPBR ~ IBUS,UBBR,SP0 ' : TIMER EXPIRES? 


CI) 




B00127 




MICPC»MICPC+1 


(1) 


012600 


123620 




<MOVE 1 SPBRX I IBUS 1 UBBRJ SP0> 


609 


012602 






BR4 ' TIMSRV 


(1) 




000130 




HICPC»M1CPC+1 


11) 


#12602 


113245 




<JUMPlBR4CONl<TIMSRV-INIT63000M>l<TlMSRV-INIT&777/2» 


614 


012604 




10$: 


SPBR IBUS, MODEM, SP0 " ; READ MODEM CONTROL CSR 


(1) 




000131 




MICPC«M1CPC+1 


(1 ) 


012601 


U23660 




<MOVE1SPBRX1IBUS1MOUEM1SP0> 


615 


612606 






BRWRTt BR,AA;SP0 ;SH1FT IT LEFT 


(1) 




000132 




MICPC«M1CPC+1 


(1 ) 


012006 


060520 




<MOVElWt<TEBRlBR!<AAiSP0» 


616 


&12610 






BR4 ' SETDSR ;IF DSR SET, CLEAR FLAG 












cii 


012610 


103150 




<JUMP!BK4CO!U<SETDSR-INlTt3000»4>t<StTDSR-INITi777/2>> 


617 


012612 






BFcWRTf. BR,SELA|SP10 ;READ LINE STATUS WORD 


(1 ) 




000134 




MICPCiMICPC+1 


(1) 


012612 


0b0610 




<MOVEIWHTEBR1BRI<SELAJSP10» 


618 


l>12614 






BRSHFT 


tl) 




000)35 




HICPC»M1CPC+1 


11) 


012614 


001b2<) 




<H0 VE t Sht TBR i WRTEBR 1 SELB> 


61* 


812616 






BR4 ~ IDLE " } START MODE 


C 1 ) 




000136 




MICPC«M1CPC + 1 


(1 ) 


012616 


1031*45 




<JUMPlBR4CONl<IDLE-lNITt>3000*4>l<IDLE-INIT&n7/2» 


620 


412620 






BRWRTt BR,AA1SP1 ~ ;READ PURI STATUS WORD 


11) 




0001 3 ' 




MICPC«M1CPC+1 


CI) 


<M262d 


Bbt'521 




<M0 VE1 WRTEBR 1 BR KAA1SP1>> 


621 


012622 






BR1 IDLE ;INIT MODE 


(1) 




1*901 40 




MICPCiMlCPC+1 


11) 


«12b22 


10214S 




<JU)*PIBt<lCONl<lDLb-INIT(i3000*4>i<IDLE-INIl&;77/2» 


622 


31262 4 






BR7 \ ' IDLE ' (DISCONNECT ERROR ALREADY SENT 


C 1 ) 




30iJl 41 




MjCRC*M1CPC+1 



0MCJ1 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APH-77 10:08 



MACY11 30(1046) H-JuL-77 12118 PAGE 6-11 
NIDLE2---NO CSP ACTIVITY STATE 



PAUEl 0070 



(1) 


012624 


103445 


<JUMP|BH7CONJ<IDLE-INITSj000«4>KIBLE-INIT4777/2» 


623 


t'12626 




5PBR " IBUS»MAIN,5t>0 J READ 


THE MAIN! REGISTER 


(1) 




800142 


MICPC«H1CPC+1 




(1) 


£12626 


123420 


<MO VE 1 SPBRX 1 IBUS 1 MAI N 1 5P0> 




624 


912630 




BRWRTE BR,ADDiSP0 


} SHIFT LEU 


( 1 ) 




060143 


MICPCiMlCPC+1 




( 1 ) 


01263f 


060400 


<MOVEI WKTEBR t BRKADDi SP0>> 




625 


S12632 




BP 4 IDLE 


;LU LOOP — EXIT 


(1) 




0001 44 


MICPC«MlCPCtl 




11) 


012632 


103045 


<JUMP!BR4CONKIDLh-lNITi3000»4>i<IDLE-INIT&/77/2» 


626 


012634 




BRNRTE IHM,100 


~ {WRITE DISCONNECT ERROR 


(1) 




000145 


MICPOMlCPC+1 




(1) 


1*12634 


000500 


<MOVE 1 WR'TEBR i IHH t < 1 00» 




627 


012636 




SP ~ BR,AORB,SPl 


; FLAG ERROR RECORDED 


(1 J 




0001 46 


MICPC»HiCPC+l 


(1) 


6512636 


063301 


<MOVEiSPXiBRJAORBISPl> 




628 


012640 




ALWAYS ERRXX 


fMAKE A CONTROL OUT 


1 1 ) 




000 147 


HXCPCiMlCPC+l 


U) 


012640 


1 14671 


<JUHPULCONDJ<ERRXX-IHITS3000»4>KERRXX-INITS777/2» 


629 


012642 




SETDSRt BRWRTE IMM.277 


;CLEAR DISCONNECT ERROR 


(1) 




000150 


HICPCiMlCPC+1 


(1) 


012642 


0006 77 


<MOVE!HRTEBRIIH«l<277>> 




634 


€12644 




ALWAYS CLRIDL 




( 1 J 




000151 


MICPC«M1CPC+1 




(1) 


012644 


100652 


<JUMP|ALCONDKCLRIDL-INITS3000«4>KCLRIDL-INlTi777/2» 



DMCll DDCMP PROTOCOL IMPLEMENTATION MACT1I 30C1046) ll-JUL-77 12118 PAGE 6-12 PAGE: 0071 



DUCNEH 


NAC 2 


-APR-77 10S06 


INWAIT- 


—WAIT FOR RQI TO CLEAR " 


637 








, SBTTL INWAIT— -WAIT FOR RQI TO CLEAR 


633 


012646 




inwait: 


SPBR IBUS, INCON, SPiS " ; READ INPUT CONTROL CSR 


in 




200152 




MICPC-MICPC+1 


t i ) 


912646 


1 23400 




<MO¥E 1 SPBRX t IBUSI INCON I SP0> 


639 


11265a 






BRNRTE BR,<AAlSPa>" JSHIFT IT LEFT 


( 1 ) 




000153 




MICPC»M1CPC+1 


( 1 ) 


til 2650 


060520 




<M0 VE 1 WR'TEBR t BR ■ < A A ! SP0» 


640 


,il2652 






BR7 NIDLE3 ~ ; INTERRUPT ENABLE HAS BEEN SET 


( 1 ) 




300154 




MICPC*tUCPC+l - 


( 1 ) 
641 


012652 


103557 




<JUMPlBR7CONl<NIDLE3-INIT63000«4>l<NIDLE3-INITfc777/2» 


642 


K12654 




INWAT1 : 


SPBR IBUS, INCON, SP0 ; READ THE INPUT CONTROL CSR 


(1) 




000155 




MICPC"M1CPC + 1 ...... 


C 1 ) 


J12651 


123400 




<MOV£ J 5t*BRX! IBUSI INCON 1SP0> 


643 


012656 






BR7 " JNWAT2 - - ; READY IN STILL SET 


(1) 




300156 




HICPC»MICPC+1 


(1) 


912655 


101566 




<JUMP2BR7CONl<lNNAT2-INlT&3000*4>l<INWAT2-INITfc777/2» 


644 


412660 




NIDLE3 I 


pstate inhati ; update state to input 


(1) 


01 2660 






MEM IMM,«INNATl-INITti777/2» 


(2} 




000157 




MICPC»MICPC+1 


(2) 


01 2660 


002555 




<MOVEIWRMEMiIHMJ«INWATl-INIT&777/2>» 


645 


012662 






BRWRTE BR,AA[SP0 ;SHIFT CSR LEFT 


(1) 




000160 




MICPC»MICPC+1 


11) 


012662 


360520 




<10VE1 WRTEBRJBR.<AAJSP0» 


646 


PI 2664 






BR7 ININT 


(1) 




000161 




MICPC»MICPC+1 


(1) 


012664 


1 17454 




<JUMPlBR7CONl<ININT-INITfc3000»4>i<ININT-INIXfc777/2» 


647 


012666 






PSTATE INWAIT J UPDATE STATE POINTER TO NO INTERRUPT 


(1) 


SP12666 






MEM IMM,«lNWAIT-INITS777/2» 


(2) 




000162 




MICPC-H1CPC+1 


(2} 


012666 


002552 




<M0VE1 WRHEM 1 IMM !<<INWAfT»INITfc777/2>>> 


648 


012670 




N IDLE4 : 


BRWRTE IMM,2 a 


(1 ) 




300163 




MICPC«MICPC+1 


(1) 


012670 


000600 




<MOVElHRTEBRiIMMl<200» 


649 


£12672 






OUT BR,AORB10INCON ; SET THE ROXI 


(1) 




100164 




KICPC"M1CPC+1 


(1) 


912672 


061 300 




<MOVEiWROUTXJBRKAOHBlOINCON» 


650 


012674 






ALWAYS IDLE 


( 1 ) 




000165 




MICPC"M1CPC+1 


(1 ) 
651 


012674 


100445 




<JUMPlALCONDl<IDLE-iNiT*3000*4>l<IDLE-INIT4/77/2>> 


652 


012676 




INWAT2: 


BRSHFT ;SHIFT THE bR RIGHT 


(1 J 




300166 




MICPC«M1CPC+1 


(1) 


012676 


001620 




<M0VE1 8HFTBR1 WRTEBR i SbLB> 


653 


012700 






BR4 MDLE6 ;RQ1 SET— Go AWAY 


( 1 ) 




<J001 67 




MICPC«MICPC+1 


1 1 ) 


M12700 


103125 




<JUMPlBh4CONt<NIDLE6-lNITli3000*4>!<NIDLEb-INlTS777/2» 


658 


012702 




1NSRV: 


SPBR " IBUS, INCON, SP0 J READ THE INPUT CONTROL CSR 


(1} 




0001 li) 




MICPC»MICPC+1 


(1) 


012702 


123400 




<"OVElSfBRX! IBUSHNCONjSP0> 


659 


X12704 






faRl " 30$ ;--5ENSE OR BASE 


( 1 ) 




(jaw 171 




HICPC*MICPC+1 


(1) 


H127k)4 


1 «6W5 




<JUMPlBFlCON[<30S-INlTt3000»4>!<30S-INITk,7 77/2>> 


660 


01 2706 






HR0 10S ;CNTL I 


I 1 1 




£001 72 




KICPC*MiCPC+l 


i i 1 


05 27(46 


J V> 2 1 77 




<JtlMP!bK0CON!<m$-INITfcJ000»4>!<10l-I -UTi 11 1 / 2» 



DMCU DUCMP PROTOCOL IMPLEMENTATION MACU1 30(1046) ll-JUL-77 12118 PAGE 6-13 PAGE: 0072 

DOCNEW.MAC 21-APR-77 ls):u8 INfcAIT— WAIT FOR ROI TO CLEAR 



b&l 


J12710 






BRSHFT ;HUST BE BA/CC-SH1FT FOR IN 


(1) 




000173 




H1CPC=H1CPC*1 


(1) 


012710 


0*1620 




<M0 VE I SMFTBR 1 WRTEBRi SELB> 


662 


012712 






bPl 15$ 


(!) 




308174 




MCPC*MICPC + 1 


<i) 


U12712 


102601 




<JUHP!BHiCONJ<15S-I»ITfc3000*4>i<15$-INITi /7 l/2» 


663 


012714 






P5TATE TBASRV ; TRANSMITTER 


( 1 J 


C12714 






MEM IMM,«TBASRV-INIT6777/2» 


C2> 




B98175 




HICPCsf.iCPC+1 


( 2 ) 


6^12714 


002703 




<MOVE!WRMEM< IMM!«TBASRV-INlT&777/2»> 


664 


L>1271b 






ALWAIS 20$ 


(1) 




300176 




Micpc«mcpcti 


(13 


'J 1 27 16 


1BU&02 




<J»JMPi ALC0ND!<2B$-IKIT5i3e38«4>!<28$-ISITS77 I /2» 


665 


1*12720 




10$ : 


PSTATE CTLSRV 


(1) 


P12720 






HEM IMM,«CTLSRV-IJUTS777/2» 


(2) 




300177 




MICPC«M1CPC+1 


(2) 


012720 


002661 




<MOVElWRMEMUWMl«CTLSRV-INIT&777/2>» 


666 


112722 






ALWAYS 20$ 


11) 




000200 




MICPC«MICPC+1 


(1) 


012722 


100602 




<JUMPlALCONDl<20$-INIH,3000»4>!<20S-INIT&777/2» 


667 


4,12724 




15$: 


PSTATb rbasrv 


(1 ) 


SS12724 






HEM IHM,«RBASRV-IMIT6777/2» 


(2) 




£100201 




MICPC=MICPC+l 


(2) 


S12724 


002726 




<M0VE!WHMEM:IMMJ«RBASP.V-IN1T4777/2»> 


668 


«>12726 




20S: 


BRWRTE BRf SELAISP1 jlNIT MODE 


( 1 ) 




00b202 




MICPC«M1CPC+1 


(1) 


012726 


960601 




<MOVElWfcTEBRlBRKSELASSPl» 


669 


P12730 






BR0 PROCER ;IF INIT MODE— ERROR 


(1) 




000203 




MICPC»IUCPC+1 


(1) 


012730 


102211 




<JUMPiBR0CONl<PROCEK-INIT63000»4>!<PROCER-INlT4777/2» 


670 


*12732 






ALWAYS IDLE 


tl ) 




000204 




MlCPC«MiCPC+i 


CI) 


012732 


100445 




<JUHPJ ALCOND!<IDLE-IlUTfc3000*4>l<IDLE-INIT&777/2» 


679 


W12734 




30$: 


BR0 " 35$ jiF BASE— PROCESS 


(1) 




300205 




MICPC*M1CPC+1 


CI) 


<12734 


102207 




<JUMPlBfi0CONl<35$-INITfc3000«4>K35$-INITS777/2» 


680 


012736 






ALWAYS PROCER " 


CI ) 




000206 




MICPCiHlCPC+1 


(1) 


t 12736 


100611 




< JUMP { ALCOND! <PROCER-miTS3000*4> i <PROCER-INlTfc777/2» 


681 


312743 




35$: 


BRWRTfc "BR,SELA:SP1 (XN1I MODE? 


(1) 




000207 




HICPC=M1CPC+1 


CI) 


012740 


060601 




<HOVEiWPTEBRiBR!<SELA!SPl» 


682 


312742 






BBS " BASSRV 


(1 ) 




000210 




MICPCsMICPC+1 


(1) 


912742 


102056 




<JUMP!B&0CONl<8ASSRV-INITt3000*4>l<BASSRV«>INIT*777/2» 


684 


912741 




procer: 


BRWRTE IMM, 100 ; CLEAR INPUT CONTROL CSR 


CI) 




000211 




HICPCiMICPC+1 


(1 ) 


t>12744 


200500 




<H0 IE 1 WRTEBRJ IMM ! <100» 


685 


1H2746 






OUT " BR, AAKDB10INCON j> 


tl ) 




000212 




H1CPC*M1CPC+1 


CI) 


1,12746 


061260 




<H0VElWR0UTXlBR!<AANDBtOIHCON» 


686 


012750 






LOHA ' IMM,«RTHRS+3»" ; ADDRESS ERROR LINK 


C 1 ) 




000213 




MICPC"M1CPC+1 


CI) 


01275.* 


B10177 




<M0VE!LDHAR1IMHJ«RTHRS+3>S377» 


687 


B12752 






HEMINC IMM, 2 


(1) 




300214 




MICPC«M1CPC*1 



DMCU DDCHP PROTOCOL IMPLEMENTATION MACY11 30(1046) U-JUL-77 12118 PAGE 6-14 PAGE: 0073 



DDCNbW 


MAC 21 


-APK-77 10:08 


INWAIT— WAIT FOR RQI TO CLEAR 


(1) 


012752 


016402 


<M0VE1WRMEM>INCMAR|1MH|<2» 


688 


012754 




MEM IMM,0 


( t ) 




000215 


HICPC»K1CPC+1 


(1) 


012754 


002400 


<M0VE1 WBMEH ! IMMi<0>> 


b89 


*1 2756 




OUTPUT HEMX, SEbB 1 OMODEM ;CLEAR DATA TERMINAL READ! 


( 1 ) 




000216 


MICPC«MICPC+1 


(1 ) 


U127S6 


542233 


<H0 VE 1 WROUT ! MEMX 1 <SELB 1 OMODEM» 


690 


012760 




ALWAYS RCEXX ;POST THE ERROR - FATAL 


(1) 




000217 


MICPC"M1CPC+1 


(1) 


912760 


114527 


<JUMP!ALCOND|<RCEXX-INIIt3000«4>i<RCEXX-INri'fc777/2» 



DMCU OUCMP PROTOCOL IMPLEMENTATION 
ODCNE«f.«AC 21-AFR-77 13:4*8 



HACYH 30C1046) ll-JUL-77 12MB PAGE 6-15 
OUTINT— SET UP OUTPUT INTEKRUPT IRDYOJ 



PAOE: 0074 



692 






.SBTTL OUTINT— SET UP OUIPUT INTERRUPT IRUY01 










69S 


*1 2762 




PSTATE OUTWAIT jPORT STATUS TO WAITING FOR OUT 


(1 J 


612762 




HEM IMM,«0UTWAIT-INITfc777/2» 


12 I 




000220 


MICPC*M1CPC+1 




t"12762 




<M0 VE I WHMEM • I MM I <<OUTWAIT*IN IT&7 7 7/2>>> 


700 






^COMPLETION 


70 1 


v 1 2 7 6 4 


900221 


LDMA IMM,NXT1NT ; ADDRESS OF NEXT INTERRUPT POINTER 
MICPC tt MlCPC+ 1 


C 1 ) 


012764 


910240 


<MOVElLDHAR!IMMl<NXTINT&377» 


702 


01 2766 


000222 


LDMA ~ MEMXtSELB ;NEXT INTERHUPT 
MICPC*MICPC+1 


(1) 


312766 


950220 


<M0 VE 1 LDNAR ! MEMX ! <SELB» 


703 


012770 


000223 


SP IBUSj OCON , SP0 ;READ THE OUTPUT CONTROL CSR 
MICPC*MICPC*M 


(*> 


&12770 


123040 


<MOVEiSPXlIBUSlOCORJSP0> 


( 1 J 


012772 


000224 


OUT <MEMX! INCMAR>, <A0RB100C0N> }NRIT£ THE OUT CONTROL CSR 
MICPC = MICPC+1 " " ~ 


( 1 ) 


i)l 2772 


055302 


^MO VP 1 UUDTITY 1 MPUY 1 THPHID 1 ^tflBB 1 linrnH\% 


CI) 


01 2 774 


000225 


I.nMA ~ HPMV tcr B* ~ •tni]D?Ge i T Mif 
uunA n&nAfo&LiD jAUUKEoo ulnn 

HICPC"M1CPC+1 








<MOVE i LUNAR I MEMX • <5ELB>> 


706 
(1) 


"12776 


00(9226 


BRWRTE <BR I INCMAR>r <AA| SP0> ) KICK PAST LINK STATUS BYTE 
MICPCiMlCPC + 1 ~ " . " " 




912776 


07 452k) 


< MOVE I HRTEBR I BR 2 INCMARJ <AA { SP0>> 


707 






jSHIFT C5K0 IMAGE LEFT 


J0H 






;«**do not Change ~bk until BR7*## 


709 
11) 


1 3000 


000227 


OUT <MEMX! XNCMAR>r<SELBSOPOKTl> ;WRlTE LOW BYTE Of 6 A TO CSR 
HlCPC^MlCPC+i 


(1) 


013000 


055224 


<M0VEiWR0UTX'MEMXJINCMARi<SEiiB10P0RTl» 


f i *) 


013002 


0002 30 


OUT <MEMXilNCflAR>f <&ELBl0pORT2> ; WRITE HIGH BYTE OF BA TO CSR 


( 1 ) 


1 3002 




<MOVEi WR0UTXJMEMX1 INC MAR 1 <S£I«B J 0P0RT2>> 


711 


1113004 


00023 1 


OUT ' <MEMX|lNC«AR>,<SELBjQP0RT4> ; WRITE HIGH BYTE OF COUNT TO CSR 
NICPC=HICPC* 1 


(1) 


013004 


055227 


<MOV£»WROUTXJHEMXiI«CMARl<SELBiOPORT4>> 


CI) 


*)1 3006 


000232 


OUT ~* /Mtmy t t Nr*Hji b\ ^apT.a i rtoAuT i . no i tc tup i.nu dvtF nv r»nn 

WUl \"6nA X f JwrUKi J> J HKHb itltt UUff DHL Ur tUUn J, 


( 1 ) 


013006 


055226 


<MOVE:NH0UTXlHEHXIINCMARKSELBiOPORT3» 








;***H£RE 15 BR7**» 


714 
(1 ) 


91 3010 


000233 


BR7 PEJ ; INTERRDp^ ENABLE IS SET 
HICPC=MICPC+1 


/ 15 


013010 


] 03760 


< JUMP J BR7C0N { <PE J •INIT63000*4> l <PEi "lNITfc777/2>^ 

I GENERATE AN INTERRUPT 


721 


013012 




PINT2: 


"* 


013012 


000234 


LDMA I*M, NXTINT ; ADDRESS NEXT INTERRUPT OuEUE 
MICPC"M1CPC+1 


11) 


01 3012 


01 0240 


<M0 VE 1 LDMAR i I MM J <NXTINT637 7^^ 


724 
C 1 ) 


013014 


000235 


SP - ~MEMX# SELBr SP0 |COPY ADDRESS FOR NEXT INT TO SP0 
MICPC»HICPC+i 


(1) 


313014 


043220 


< HO VE 1 SPX ! MEMX 1 SELB 1 «P0> 


725 
( 1 ) 


1*13016 


BS0236 


MEM ~ IMM,INTSTK ; ASSUME WRAP AROUND CASE 
MICPC=MICPC+l 


( 1 ) 


l>13016 


002642 


<MOVE! WRMEHIIMM!<INTSTK» 


726 


013020 




BRWRTE IMM, <<MMEND-2» ? ADDRESS OF LAST INT IN STACK 


(1) 




000237 


HICPC»M1CPC+1 - 



DHCll DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC il-APH-7/ 10:08 



MACY11 30(1046) ll-JUL-77 13118 PACE 
OUTINT— SET UP OUTPUT INTERRUPT IROlfO] 



PAGE! 0075 



013020 


0007 76 


<M0 VE ! WRTEBR ! IHM J «MMBN0-2»> 




013022 




CMP " BR»SP0 ' " 


1SH0ULD HE WRAP 




000 240 


MICPCeMiCPC+I 




013022 


060360 


<SUBTC!Br:SP0> 




013024 




Z 5$ 


; YES— BRANCH 




600241 


MICPC«M1CPC+1 




013024 


101644 


<JUMP!Z(.OND!<5S-INIT630e«*4>l<5l 


-INIK777/2» 


J13U26 




BRHRTt "IMM,2 


J OFFSET FOR NEXT POINTER 




000242 


HICPCiMICPC+1 


M13026 


000402 


<M0VEIKKTEBR!IMM1<2» 




iM 3030 




MEM ~ BR,AODtSP0 


; UPDATE POINTER 




000243 


HICPC»H1CPC+1 


til 3030 


062400 


<M0 VE1 MRMEM J 8R ! < ADD t SP0» 








&»J SP MEMX,SELB,SP0 


JCOPY POINTER TO SP0 




000244 


HICPC«M1CPC+1 




013032 


343220 


<MOVEI SPX ' MEMX }SELB!»P0> 




013034 




LDMA ~ IMM, NXTSP " 


(PICK UP START OF IN QUEUE 




000245 


MICPC*M1CPC+1 




1)13034 


J10241 


<move:lumar:immj<nxt6P1377» 




W13P36 




CMP " HEMX f SP0 


;COMPARE TO END 




000246 


MICPC=M1CPC+1 


913036 


040360 


<SUBTC!MEMX1SP0> 




313040 




Z ~ 10$ 


;IF EQUAL— CLEAR INT PENOINl, 




!5002 47 


HICPC*M1CPC+I 




013040 


101651 


<JUMP!ZCONDi<10S-INITt3000*4>!<10»-lNITS777/2>> 


013042 




ALHAXS IDLE 






000250 


MICPCiMlCPC+1 




013042 


100415 


<JUMp:ALCONDKIDLE>INIIfc3000*4>l<IDLE-INIT(i/77/2» 


til 30 4 4 




10$! BRWRTE IMM, 357 


J MASK TO CLtAR INT PENDINU 




000251 


MICPC«H1CPC+1 




10)3044 


000757 


<MOVE t HRTEBR t IMMi <357» 




J13046 




CLRIDL: SP ~ BR,AANDB,SPl 






000252 


MICPC»MICPC+1 




013046 


063261 


<M0VE1SPX!BR|AANDB|SP1> 




J13050 




ALWAYS IDLE 






!*00253 


MICPC*MICPC+1 




al3059 


100445 


<JUMPlALCOND|<lDLE-INITfc3000*4>l<IDLE«INIl&777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DOCNE.W.HAC 21-APB-7/ 10:08 



MACY1 t 30U04b) ll-JUL-77 12S18 PAGE 6-17 
OUTWAI--WAIT tr'OK RDIO TO GO AWAX 



PAGES 3076 



740 . SBTTL OUTWAI--WAIT FOR RDYO TO GO AWAX 







OUTWAI: SPBR IBUS# OCON # SP0 {READ OUTPUT CONTROL CSR 




00025 4 


MICPC=M1CPC+1 


11 1«S3 




<f 0VE1 SPBRX ! I BUS; OCON I SP0> 


J13">54 




BR7 NIDLE6 {RDX0 SET ■•GET OUT 




300255 




»13«>54 


1143525 


<JUMPJBR7CONJ<IUDLE6-II«ITS3000»4>l<NIDLE6-INlTi777/2» 


»i j»56 




BRWRTE IMM,ie0 {CLEAR CONTROL BITS 




90025b 


HICPCiHICPC+1 


J13056 


300503 


<HOVElWHTEBRIIMMi<100» 


013060 




OUT ~ BR/ OOCON 1 AANDB 




008257 


HICPC*MiCPC*l 


til 3060 


161262 


<M0 VE J WKOUTX ! BR J <O0C0H 1 AABDB» 


013462 




ALTAI'S INS13 




00026k) 


MICPCiHICPC+1 


013062 


140674 


<JUMPiALCONDi<INSl3-INITt3000*4>KINS13-INIT6777/2» 



DMCll DDCMP PROTOCOL IMPLEMENTATION MACYU 38(1046) ll-JUL-77 12:18 PAGE 6-18 PAGE: 0077 



E(<."AC 


21-APP-77 10:08 


CTLSRV- 


-CNTL I SERVICE 




4 7 






. SBTTL CTLSRV--CNTL I SERVICE 




48 013064 




CTLSRV: 


SPBR IBUS,P0KT4,SPB 


J TO SP0 




5J00261 




HICPC*MICPC+1 




1) 313.964 


123563 




<MOV£! SPBRX! IBUS J P0RT4 1 SP0> 




49 013066 






BRSHFT 






vovii>2 




MlCPC=MlCPC+l 




1) 913465 


8W1620 




<MOVEJ SHFTBR! WRTEBRi SELB> 




50 013070 






BR1 " HDSEL 


|1F SET IS HALF DUPLEX 




0U0263 




MICPCxMlCPC+1 




1) J13070 


1 iJ2 /55 




<JUMPIBHlCONI<HDSEL-I«ITfc3000»4>i<HDSEL-I«iii777/2» 


51 »13072 






BRWRTE IMH,100 


; MASK FOR DTR 




900264 




MICPC=M1CPC+1 




1) 813072 


300500 




<HOVE!WPTEBR!IMMl<100» 




5? "413074 






OUTPUT BR» SELB 1 OMOOEM 


; TURN OFF HALF-DUPLEX 




000265 




MICPC*M1CPC+1 




1J SM3074 


062233 




<MOVE 1 WKOUT J BR I <SELB 1 OMODEM» 




53 »13076 




INSll: 


BRWRTE. DP,<SELAJSP0> 


{RESTORE THfc CNTL WORD 




000266 




MICPC«M1CPC+1 




1) 413076 


360600 




<MOVEIWRTEBRJDPKSELA1SP0» 




54 (113103 






BR0 " CBOOT 


;IF SET IS BOOT 




000267 




HICPC=M1CPC+1 


1) 013100 


102276 




<JUHPIBR0CONJ<CBOOT-INITS3000M>KCBOOT-INIT&777/2» 


55 V13102 




INS12: 


SP ~ IBUS,INCON,5P0 


;READ THE INPUT CONTROL CSR 




000270 




MICPC=M1CPC+1 




1J «13102 


1 23000 




<MOVEISPX!IBUSUNCONISP0> 




5b k/13104 






BRWRTE IMM.100 " 


; ZERO THE Bk REGISTER EXCEPT INT UNABLE 




000271 




MICPCiHlCPC+1 




11 k)13104 


400500 




<MOVE1WKTEBR!IMM1<100» 




57 913106 






OUT BR,<AANOB101NC0N> 


{CLEAR IN CONTROL CSR 




000272 




MICPC»H1CPC+1 




1) W13106 


i»61260 




<MOVE1WROUTX1BR!<AAN0810INCON» 




58 )13ilZ 






LDMA " IMM, PRIST 


; ADDRESS PORT STATE 




C<>0273 




MICPC*M1CPCU 




U 9131M 


010162 




<M0VElLUMAR! IHM 1<PRTSTS377» 




59 1913112 




INS13: 


PSTATE NI0LE2 




1) 013112 






MEM IMM,«NIDLE2-INIT&777/'2» 








SiCFw=SiCPCTi 




2) 1)13112 


902520 




<M0VElHFMEM!IMM>«NlDLE2-INIT&777/2>» 


60 013114 






ALWAXS IDLE 






000275 




MICPC=M1CPC+1 




1) 1913114 


100445 




<JUMP!ALCONDKIDL£-lNIT63000«4>2<lDLE-INIT6777/2» 


62 01311b 




cboot: 


< 

BRWRTE IMM.200 


; MASK FOR BOOT MODE 




U00276 




HICPC*MlCPC+t 




1) «»1 3 1 1 S 


000600 




<MOVEiWkTEBRlIMMt<200» 




63 DUUit 






SP ~ BR,A0RB,SP1 


{IN PORT STATUS WORD 




000277 




HICPC»M1CPC+1 




I) 01312k! 


363301 




<MOVE!SPX!BRt A0RBISP1> 




64 013122 






BRWRTE IMM,204 


; MASK' FUR OK TO SEND AND LINE IDLE 




000300 




MICPC=M1CPC+1 




1) 013122 


0PPI604 




<M0VE1 WRTEBRI IMM ! <204» 




65 913124 






SP BR,SELB,SP10 


;1N LINE STATUS 




000301 




MICPC*M1CPC+1 




1) 01 3124 


363 230 




<MOVE!SPX2BR!SELBiSP10> 




t.b S13126 






ALwAKs INS12 




1 J 


0vi i j<j2 




:4ICPC»tUCPC + l 





DMCll DOCMP PROTOCOL IMPLEMENTATION MACm 30(1046) ll-JUL-77 12118 PAGE fa-19 PAUEj 0078 

DDCNEW.MAC 21-APR-77 10108 CTLSRV--CNTL I SERVICE " 

U) 813126 100670 <JUHPlAtCONDi<INS12-INITt3000»4>i<INS12-INIIfc777/2» 



D«C11 DDC^P PROTOCOL IMPLEMENTATION MAC I 11 30(1046} ll-JOL-77 12118 PAGE 6-20 PAliEl 0079 

DDCatW.MAC 21-APH-77 10:08 TBA5RV — TRAHSMITT£R BUFFER ADDRESS SERVICE 

76B .SBTTL TBASRV— TRAMSMITTCR BUFFER ADDRESS SERVICE 



0131 30 




TBASRV1 LDMA ' I MM, ETC 


)SET POINTER TO END OF TMT CHAIN 




000J03 


HICPC=M1CPC+1 




£13130 


8H0072 


<M0VE1LDMAR!IMMI<ETCS377» 




013132 




LDMA MEHX,<SELB13PX1SP0> 


I FIND THE LINK 




800J04 


MICPC-M1CPC+1 




013132 


B53220 


<M0 VE 1 LDMAR ! HEHX t <S tLB J SPX 1 SP0» 




013134 




MEMINC IMM,1 


; BUFFER ASSIGNED IN IN LINK FLAGS 




000 305 


MICPC«M1CPC+1 




413134 


016401 


<M0 VE S Wi- MEM i INCMARi 1MM !< !» 




-J131 36 




BRWRTt <lMMtINCMAR>,6 


jPOINT PAST NUMBER HELD 




900306 


MICPC*M1CPC+1 






<H0<E;iiRIESBiIKM;iHCKAKi«&2>> 










f SET BR FOR ADDITION TO SP0 


013140 




MEMINC IBUSfPORTl 




0H0307 


MICPC»M1CPC+1 




013140 


136500 


<M0 VE r HRMEM 1INC M AK ( IBU6 t <PORfl » 




913142 




MEMINC IBUS,P0RT2 "' " " 






000310 


MICPCiMlCPC+1 




B13142 


136520 


<M0VE1 HRMEM 1 INCMARi 1BUS]<P0RT2>> 




013144 




MEMINC IBUS,P0RT4 - 






000311 


MICPCiHICPC+l 




013144 


136560 


<M0VElHkMEMtIHCMAR| t XBUSKP0RT4» 




013146 




MEMINC IBUS> P0KT3 " 






000312 


HICPC«M1CPCM 




313146 


1 36540 


<MOVElHkMEM| IHCMARi 1BUSJ<P0RT3» 




013150 




SP BR,ADO,SP0 ~ 


} OFFSET TO NEXT TRANSMIT LINK 




000313 


MICPC=M1CPC+1 




013150 


06 3000 


<MOVEJSPX!BRJADD{5P0> 




H13152 




BRWRTE IMM, T 


> LOAD BR hlTH ADDRESS OF CHAIN END 




000314 


MICPCiMlCPC+1 




(113152 


900553 


<^OVE 1 HRTEBR1 IMM I <T>> 




J13I54 




LDMA IMM, ETC 






000315 


MICPC»MiCPC+l 




HI3154 


010072 


<MOVElLDMAR!IMMKETCfc377» 




013156 




CMP _ BR,SP0 


( END OF CHAIN? 




000316 


MICPC»MICPC+1 


013156 


060360 


<SUBICIBR1SP0> 




413160 




Z ' 208 


J IF YES— BRANCH 




000317 


MICPC«MICPC+1 


•1 3160 


101724 


<JUMP12CONDK20$-INlT&3000*4>i<20f-INlI&7/7/2» 


013162 




MEM BR,SEt,AlSP0 


; UPDATE THE END POINTER IN MEMOHY 




000320 


MICPC'MICPC+1 


•13162 


062604 


<WOVEIHt*MEM!BRKSELAlSP0» 




013164 




10$: BRWRTE IMM, 2 : NUMBERED MSG PENDING MASK 




000321 


MICPC«M1CPC+1 




013164 


000402 


<MOVEl WRTEBRI IMM1 <2>> 




013166 




SP ~ BK,AORB,SP10 jUPDATE 


UNfc STATUS 




040322 


MICPC«M1CPC+1 




013166 


0*3310 


<MOVE1S'PX{BR1AORB1SP10> 




9131701 




ALKAIS INS12 






B00323 


MICPC«M1CPC+1 




013174 


1 M0670 


<JUMP1 A'LCONDS<INS12-IN1T43000»4>J<INS12 


-INIlk777/2» 


<»131 72 




20$: MEM IMM, TMLl 


) WRAP IT AROUND 




000324 


HICPC*MICPC+1 


01 3 I 7 2 


002«7 * 


<M0VEI WHMfcM JIMM!<1ML1>> 





DMCll OOCHP PROTOCOL IMPLEMENTATION MACY11 30U04b) ll-JUL-77 12118 PAGE 6-21 PACjfc: 0080 

ODCNEW.MAC 21-APR-7/ 10:08 TBASRV— TRANSMITTER BUFFER ADDRESS SERVICE 

788 J13174 ALWAYS 10$ {CONTINUE PROCESSING 

(1) 300325 HICPC«HICPC+i 

(1) 013174 100721 <JUMPULCONDJ<10l-INIT&3000«4>K10$-INIU777/2» 



UHC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12118 PAGE 6-22 PAGE: 0081 



OOCnEW 


MAC 2] 


-APR-77 10108 


RBASRV- 


-RECEIVE BUFFER ADDRESS SERVICE 


79U 








.SBTTL RBASRV— RECEIVE BUFFER ADDRESS SERVICE 


791 


B13176 




RBASRV: 


LDMA IHM.ERC ~ {ADORES END OF RECEIVE CHAIN 


(1 ) 




080326 




HICPC*M1CPC+1 


(1) 


»1 3176 


010023 




<H0VEJLUHARUMM1<ERC4377» 


792 


013200 






LDHA " MEMX,<SELBlSt>XlSP0> {GET THE POINTER TO LINK 






530327 




ri ICPC~riiC rC t i 


(1) 


J13200 


0S3220 




<HOVE I LOMAR t HEMX 1 <SELB I SPX 1 SP0» 


793 


413202 






HEHINC IHM,1 


CI) 




040330 




MICPC»H1CPC+1 


11) 


013202 


016401 




<MOVElWRMEMIIHCHARlIHHi<l» 


794 


313204 






HEHINC IBUS,P0RT1 


(1) 




000331 




HICPC«M1CPC*1 


U) 


913204 


136500 




<MQ VE J WKHEM J INCHAR ! IBUS i <P0RX1 » 


795 


013206 






HEHINC IBUS,P0RT2 


(1) 




000332 




HICPC«HICPC+1 


(1) 


013206 


1 36520 




<M0 VE I WRMEM ! INCMAR J I BUS 1 <P0RT2» 


796 


013210 






HEHINC IBUS,P0RT4 


(1) 




000333 




HICPC=HICPC+1 


CI) 


913210 


136560 




<H0VE1WBMEH! INCMAR J IBUS!<P0RT4» 


797 


013212 






HEHINC IBUS,P0RT3 


CI) 




000334 




MICPCiHICPC+1 


CI) 


013212 


136540 




<M0VEiWRMEHlINCNARJIBU8i<P0RT3» 


798 








( ; ; ;NOTE INVERTED ORDER OF PORT 3 AND P0RT4 


799 


013214 






LDHA IMH,ERC 


CI) 




000335 




MICPC'HICPC+l 


CI) 


.113214 


310023 




<M0VE(LDMARJIMMJ<ERC6377» 


800 


013216 






HEM IMM,RCL1 {ASSUME WRAP AROUND CASE 


(1) 




000336 




MICPC»M1CPC+1 


(1) 


013216 


002425 




<MOVElWt)MEH!IMM{<RCLl» 


801 


013220 






BRWRTE IHH,RCL7 {GET ADDRESS OF END OF CAHIN AREA 


(1) 




000337 




MICPCxHICPC+1 


CI) 


013220 


000463 




<M0VE1 WPTEBR1 IMMJ <RCL7» 


802 


013222 






CMP BR,SP0 {CHECK FOR END 


CI) 




000340 




MICPC«H1CPC+1 


CI) 


013222 


060360 




<SUBTC!BR1SP0> 


803 


013224 






Z INS12 {IF EQUAL BRANCH 


CI) 


013224 


101670 




<JUHPlZCONDl<INS12-INIT(3000*4>KIHS12-INIT&777/2» 


804 


013226 






BRWRTE IMH.5 {CALCULATE ADDRESS OF NEXT LINK 


CI) 




000342 




MICPC«MICPC+1 


CI) 


813226 


000405 




<M0VE1WRTEBR!IMH1<5» 


8 k? 5 


013230 






HEH BR,ADD1SP0 {.. 


CI) 




000343 




HICPC«H1CPC+1 


(1) 


013230 


062400 




<M0VE1 WRMEH 1 BR 1 < ADD 1 SP0» 


836 


013232 






ALWAYS INS12 {EXIT 


C 1 ) 




e00344 




HICPC«HICPC+1 


CI) 


013232 


100670 




<JUMPlALCONDl<INS12-INIT43000*4>J<INS12-INITfc777/2» 


807 


013234 




RM: 


BRWRTE IHH,3t7 J MASK TO CLEAR START MODE AND CLR ACTIVE 


CI) 




000345 




HICPC«H1CPC+1 


CI) 


(113234 


000717 




<M0VE!WRTEBRJIMMI<317» 




313236 






SPBR BP,AANDB,SP10 {CLEAR BIT IN LINE STATUS WORD 


CI) 




000346 




MICPC*M1CPC+1 


CI) 


113236 


063679 




<HOVE!SPBRX!BP1AANDBISP10> 


0*)9 


HI 3240 




HA3: 


BRWRTE IMM,e {CLEAR BR 


C 1 ) 




034347 




MICFC2MICPC+1 


U > 


f»1 3240 


i}i)0400 




<MOVt.lHRTEKRj IMMj<g>> 



DMCll DDCMp PROTOCOL IMPLEMENTATION 
DOCNEW.MAC 21-APF-77 10:08 



MACY11 3k) (1346) U-JuL-77 12118 PAGE 6-23 
RBASRV--PECEIVE BUFFER ADDRESS SERVICE 



PAGE: 0062 



810 


HI 3242 




(1 ) 




000350 


f 1 ) 


01 3242 


063233 


81 1 


91 3244 




(1) 




000351 


( 1 ) 


31 3244 


000424 


812 


9132 46 




( 1 ) 




000352 


( 1 ) 


01 3246 


104422 


813 






814 


B13250 




(1) 




003353 


(1) 


913250 


000402 


P15 


013252 




(1) 




000354 


(1) 


013252 


114671 


816 







SP BR,SELB,SP13 jSET NUMB MESSAGE TYPE IN SP13 

HICPC-M1CPC+1 

<M0VEtSPXiBRtSELBiSP13> 

STATE RCVB (CHANGE RECEIVE STATE POINTER TO STATE B 

MICPC=M1CPC+1 

<MOVE!WRTEBR!IMMl<RCVB-INITfc777/2» 

ALWAYS REXIT 

MICPC»MICPC+1 

<JUMPIALCONDKREXIT-INITfc3000«4>l<REXIT-INITfc777/2» 
1 

RTHRESI BRWRTE IHM,2 
MICPC»HICPC+1 
<MOVEi NPTEBRS IMHJ<2>> 
ALWAYS ERRXX 
MICPC»HICPC + 1 

<JUMPlALCONDJ<ERRXX-INIU3000*4>!<ERRXX-INlTfc777/2» 

t 



D»CI1 DDC1P PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JOL-77 12tlB PAGE 6-24 PAGE: 00B3 





MAC 21 


-APR-77 10:08 


BBASRV- 


-RECEIVE BUFFER ADDRESS SERVICE 


830 


313254 




HDSEL: 


BRHRTE IMM,100 j HD MASK TO BR 


( 1 ) 




000355 




HICPC«HICPC+1 


( 1 ) 


4M3254 


001*500 




<MOVE!WRTEBR1IMHJ<100» 


831 


•13256 






SP BR,AORB,SP10 J UPDATE PORT STATUS WORD 


( 1 ) 




900356 




MICPC«MICPC+1 


( 1 ) 


0132S6 


063310 




<MOV£!SPXlBRiAORBlSP10> 


832 


01 3260 






ALWAYS INSll 


( 1 ) 




300357 




NICPC'MlCPC+1 


(1) 


013260 


100666 




<JUMP!ALCOND!<INSll-INITt3000«4>l<INSll-INITi777/2>> 


833 
8 34 


U13262 




PEll 


f 

BRHRTE IMM,300 J MASK FOR INTERUPT AND VECTOR THROUGH 


(1) 




000360 




MICPC«MICPC+1 


( 1 ) 


413262 


000700 




<MOVEI WPTEBR1TMM1<*00» 


"35 


J1 3264 






SP IBUS,UBBR,SP0 ;READ BR CONTROL REG 


(1) 




000361 




MICPC-MICPC+1 


(1) 


'-»t 3264 


123220 




<MOVEISPXlIBUSlUBBRlSPe> 


836 


013266 






OUT BR,<AORB!0BR> ; INTERRUPT 


( 1 ) 




000362 




HICPC«HICPC+1 


(1) 


013266 


061311 




<M0VE1 HROUTX i BR ! < AORB 1 OBR» 


841 


013270 






ALWAYS PINT2 


(1) 




000363 




MICPC«MICPC+I 


( 1 ) 
843 


01327a 


100634 




<JUMplALCONDi<PINT2-INIT63000*4>!<PINT2-IliITfc777/2» 


an 


B13272 




; 

halted: 


MEMADR EM6 


( 1 ) 




000364 




MICPC«MICPC+1 


( 1 > 


013272 


032730 




<M0VE!HRNEMl<EM6-INlTt777/2» 


«4S 








;FALL INTO ACLOW 


846 


013274 




ACLOWj 


BRHRTE IMM,2 (CAUSE AN AC LOW 


CI) 




000365 




MICPCxMICPC+1 


( I ) 


^13274 


000402 




<M0VEJWRTEBR1 IMMI<2» 


847 


013276 






OUT BR,<5ELB[0BR> 


( 1 ) 




900366 




MICPC«MICPC+1 


(1) 


613276 


061231 




<hovei wpoutxibr:<selb:obr» 


848 


013300 




551 


BRWRTE IBUS,UBBR jWAIT FOR IT TO COMPLETE 


(1) 




000367 




MICPC»MICPC+1 


f 1 ) 


013303 


120620 




<M0VE1 WPTEBRlIBUSt<UBBP» 


849 


013302 






BR1 5S 


( 1 ) 




000370 




HICPC«MICPC + 1 


(1) 


313302 


132767 




<JUMPlBRlCONl<5S-INIT63000*4>t<5$-INITi777/2» 


850 


013304 






.ALWAY HEMX,SELB,PAGE3 


( 1 ) 




000371 




MICPC»M1CPC+1 


( 1 ) 


013301 


154620 




< JUMP J ALCOND S MEMX 1 SELB 1 PAGE3> 


851 


SI 3 306 




CKTIHE: 


BRWRTE IBUS< UBBR ; READ BR CONTROL REG 


( 1 ) 




003372 




MICPC*MICPC+1 


t I ) 


013 306 


120620 




<M0VE1WPTEBR1IBUSJ<UBBR» 


852 


0133M 






BR4 HALTED 


( 1 ) 




003373 




MICPC«MICPC+1 


( 1 ) 


013310 


103364 




<JUMPlBR4CONl<HALTED-INITS3000«4>l<HALTED-INlT»i777/2» 


853 


Jt 331 2 






ALWAYS EMl 


(1 ) 




0003 74 




MICPC«HICPC+1 


( 1 ) 


J1331 2 


114733 




<JUMPjALCONDl<EMl-INIT63000»4>KtMl-lNITs.77 7/2>> 


H54 
»55 


013114 




TBU1 : 


BRWRTE IBUSrNPR 


( 1 ) 




C<ii375 




MICPC«M1CPC*1 


( 1 ) 


J13314 


1 ?06<M 




< MOVE J WfcTEBRiIB'JS!<NPR» 


'56 


013316 






bR0 I01.E 
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DDCNLW.MAC 21-APR-7; 1,":U8 P.BASRV— RECEIVE BUFFER ADDRESS SERVICE 



PAGE! 0084 



CI) 3*0376 MICPC»MICPC+1 

(1) »13316 182045 <JUMP! BR0CON J <IDLE-INITS3000»4> i <IDLE-INITS777/2» 

R57 013323 ALWAYS EC 2 

(1) 000377 mCPC«MICPC + l 

(1) 013320 114760 <JUMP1 ALCONDJ<EC2-INITfc3B00»4>l<EC2-INITi777/2» 

858 



DMC11 DDCHP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APR-77 10:08 



S6W 
861 
8o2 



866 013322 



»92 
(1) 



»13322 
U13324 



'J13324 
U13326 



1)13326 
413333 



913330 
013332 



013332 
013334 



*»13334 
413336 



013336 
J13340 



013340 
013342 



013342 
0133(4 



313344 

111 ? 141. 



013346 
J13350 



013350 
•13 392 



013352 
*133S4 



CI 3 354 
1*13150 



01 3355 
Jl 336P 



41336U 
HI 3362 



013322 
(500377 



300400 

E23200 



000401 
060601 



000402 
106«U2 



000403 
1 J7412 



000404 
000601 



003405 
060360 



000406 
1»1745 



030407 
000405 



000410 
06,5 3b0 



00041 1 
1*5421 



000412 
000620 



000413 
06^360 



0*k)41 4 
I«57b2 



000415 
002212 



30? 11 6 
303757 



00041 7 
K6327H 



MACYli 30(1046) ll-JUL-77 12I1B PAGE 6-26 
RBASRV-- RECEIVE BUFFER ADDRESS SERVICE 

,=INIT+1000 
MICPC=377 

, SBTTL RCVA— ROUTINE 10 HANDLE FIRST DDCHP CHARACTER 
; ENTERED FROM IDLE LOOP 

J DETERMINES IF MESSAGE TYPE IS NUMBERED, UNNUMBERED OR BOOT 
{SETS UP APPROPRIATE S7«?CS FOR REST OF MESSAGE a 



PAGE: 0085 



FLUSHj 



;READ RECEIVE CHARACTE R TO SP0 



; READ PORT STATUS WORD 



}IF INIT MODE— ONLY BOOT OK 



SP IBUS,RCVDAT,SP0 
MICPC=MICPC+1 

<MOVE{ SPX! IBUS1 RCVDATlSP0> 
BRWRTE BR.SELAJSPl 
MICPC«HICPC+1 

<MOVE! HRTEBR t BRKSELAi SP1» 
BR0 5S 
MICPC«MICPC+1 
<JUMPJBR0CONt<5S-INITt3080»4>S<5$-INITS,777/2» 
BR7 5S ;IF BOOT MODE— ONLY BOOT OK 

MICPC«MICPC+1 

<JUMPlBR7CONl<5$-INIT&3000«4>l<5$-INIT&777/2» 
BRWRTE IMM,201 ;SOH TO BR 

HICPC«MICPC+1 
<MOVEINRTEBR1IMM!<201» 

CMP BR,SP0 ; COMPARE BR TO SP0 

MICPC»M1CPC+1 

<SUBTC1BR1SP0> 

Z RA1 -IF EQUAL-IS NUMBERED MESSAGE 

MICPC»MlCPC+i 

<JUMPlZCONDi<RAl-INIT&3000*4>l<RAl-INIT&777/2» 
BRWRTE IHM.5 ; ENQ TO BR 

MICPC»MICPC+1 
<M0VE!WRTEBR1IMM1<5» 

CMP BR,SP0 ;COMPARE ENQ TO SP0 

MICPC«MICPC+1 

<SUBTCJBRJSP0> 

Z RA2 ;IF EQUAL-IS UNNUMBERED MESSAGE 

MICPC«MICPC+1 

<JUMPlZCOND!<RA2-INIT630»0*4>l<RA2-INITi777/2» 



MICPC»MICPC+1 
<MOVEJWRTEBRIIMHI<220» 
CMP BR, SP«I 

HICPC«H1CPC+1 
<5UBTC JBR1SP0> 
Z BOOT 
MICPCaMlCPC+1 
<JUMPlZCOND'<BOOT-INITti3000»4>l<8OOT-lNITi777/2» 



{COMPARE DLt TO SP0 



;IF EQUAL IS BOOT 



OUTPUT IMM,<200tORCVCO> 
MICPC*M1CPC+1 

<M0VE1 WROUT1IMM!<200{ORCVCO» 

BRWRTE IMM,357 

MICPC*M1CPC+1 

<MOVE! WRTEBRJIMM!<357» 

SP BR, AANDB, SP10 

MICPC=MICPC+1 

<M0VEJSCX1 BR 1 AANDB >SP10> 

ALWAYS RM 1 

MICPC«M1CPC+1 



;FLUSH THE INPUT SILO 



;MASK TO CLEAR— CLEAR ACTIVE 



•IN LINE STATUS WORD 



; SET STATL TO RCVA AND RETURN TO IDLE 



DMC1J DOCMP PROTOCOL IMPLEMENTATION MACY11 3(9(1046) ll-JUL-77 12(18 PAGE 6-27 PAGEt 0086 



DDCNLW.MAC 21 


-APR«7 ? 10! fc*B 


PCVA-- 


ROUTINE TO HANDLE FIRST DDCMP CHARACTER 


( 1 > 


013362 


1 1 4662 




< JUMP I ALCONDS<RMl-INIT63000*4>!<RMl-INIT&777/2>> 


663 


913364 




RA2 ! 


STATE RCVI ;CHANGE RECEIVE STATE 


(1) 




030421 




MICPC S M1CPC+1 


(1) 


1*13364 


000700 




<M0VE1 WRTEBR1 IMM KRCVI-INITi777/2» 


868 


lit 3366 




BEXITj 


5P BR,SELB,SP3 


(1 ) 




00<»422 




MICPC*MICPC+1 


(1) 


413366 


063223 




<M0VEISPXJBRlSELBlSP3> 


689 


313 370 






ALWAYS IDLE 


(1) 




0J0423 




HICPC*M1CPC+1 


(1) 


013373 


140445 




<JUMPlALCONDJ<inLE-INITt30U0*4>I<IDLE-INIT4777/2>> 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) U-JuL-77 12118 PAGE 6-28 PAGEl 0087 

DDCnF.W.mAC 21-APR-77 10(08 RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 

692 .SBTTL RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 

89 3 (ENTERED FROM IDLE LOOP 

89 4 | STORES COUNT FIELD AND 3>TS UP RCVC AS NEXT STATE 

895 | 



896 


013372 




RCVBl 


697 


•13372 




SP IBUS,RCVDATrSP4 J READ CHARACTER TO SP4 


( 1 ) 




000424 


MICPC*MICPC+1 


(1) 


013372 


023204 


<M0VE1SPX1IBUS1RCVDAT!SP4> 


698 


t«13374 




LDMA IMM,LRC (LOAD ADDRESS OF START OF RECV CHAIN 


( 1 ) 




800425 


MICPC-M1CPC+1 


( 1 ) 


01 3374 


010024 


<MOVElLDMAR!IMM!<LRCfc377» 


699 


013376 




SP HEMX S LDMAR, SELB, SP1 4 (COPY POINTER TO SP14 


( 1 ) 




900426 


HICPC«MICPC+! 


( 1 ) 


»13376 


053234 


<M0VE!SPX!MEMX£LDMARISELB!SP14> 


900 






| AND LOAD MAR WITH ADDRESS OF CURRENT BA 


9tfl 


013 400 




BRHRTE MEMX, INCMARiSELB (READ FLAGS BYTE 


( 1 ) 




000427 


MICPC«NICPCtl 


(1) 


013400 


054620 


< 10 VE 1 WPTEBR t MEMX 1 < INCM AR ! SELB» 


902 


1413402 




BR0 RBI (RECV BUFFER ASSIGNED— CONTINUE 


( 1 ) 




000430 


MICPC»MICPC+1 


(1 ) 


1)13 402 


106042 


<JUMPJBR0CONl<RBl-INITfc3000*4>KRBl-INIT6777/2>> 


903 


913404 




BRWRTE BR,SELA!SP1 (READ STATUS BITE 


( 1 ) 




000431 


HICPC«MICPC+1 


( 1 ) 


013404 


060601 


<M0 VE 1 HRTEBR 1 BR 1 <SEL A I SP1 >> 


904 


013406 




BR7 RB3 (MAINT NODE 


(1 ) 




000432 


MICPC»MICPC+1 


(1) 


PI 3406 


107440 


<JUMPIBR7CONJ<RB3-INITi3000»4>l<RB3-INIT|,777/2» 


905 


013410 




LDHA IMM, T (ERROR—LOAD TYPE FIELD ADDRESS IN MAR 


(1 ) 




000433 


HICPC«MICPC+1 


(1) 


01 3410 


010153 


<M0VE1LDMAR{INM!<?(377» 


906 


013412 




MEMINC IMM, 2 ( LOAD NAK TYPE 


(1) 




000434 


MICPC«MICPC+1 


(1 } 


013412 


016402 


<M0VE1 WRMEN 2 INCMARi IMMl<2>> 


9t>7 


Ml 341 4 




MEM IMH,310 ; LOAD SUB-TYPE NO BUFFERS 


(1 ) 




0004 35 


MICPC«MICPC+1 


(1) 


013414 


002710 


<MOVE!WPMEMlIMMt<310» 


908 


01 3416 




LDNA IMM, NTLS 


(1) 




000436 


MICPC«MICPC+1 


(1 ) 


013416 


&14012 


<MOVE!LDMAP<IMM!<NTLS(i377» 


9*9 


O13420 




ALWAYS RH5 ( BRANCH TU SEND NAK ROUTINE 


(1 ) 




300437 


MICPC«M1CPC+1 


(1 ) 


HH3420 


104557 


<JUMPlALCONDJ<RH5-INITfc3000»4>t<RH5-INIT4777/2» 


910 


01 3422 




RB3I BRWRTE IMM, 4 ; MASK FOR NO BUFFER AVAILABLE 


(1) 




000440 


MICPC"MICPC+1 


(1) 


013422 


!>0«}»04 


<M0 VE1 WPTEBR SIMM J <4» 


911 


Ul 3424 




SP BR,A0RB,SP1 ; SET THE FLAG 


( 1 ) 




O02441 


MICPC«M1CPC+1 


(1) 


fcil 34^4 


E63 J01 


<M0VE!SPXiBPU0RB!SPl> 


91 2 


113126 




RBls STATE RCVC 


( i ) 




I' J0 4 42 


hicpc«micpc+i 


( 1 ) 


L'l 3426 


00*462 


<"0VE! WRTF.BRJ IMMKRCVC-INIT«.777/2» 


913 


V'l 3430 




RP0: SP 6P,SELB,SP3 


( 1 ) 




(,40143 


MICPC«MICPC+1 


( 1 ) 


ill 3130 


L63223 


<M0VEJSFX!BR1SELB!SP3> 


91 4 


< 1 34 32 




OUTPUT <ME.HX! INCMAK>,<SELBiOBAl> jOUTPUT LO* 0RD6R BYTE OF ADDERS 


US 




000444 


MICPC=V1CPC+1 



DNCU DDCMP PROTOCOL IMPLEMENTATION MACYll 30(1046) U-JUL-77 12:18 PAGE 6-29 PAGE: 0088 

DDCNE.W.HAC 21-AFR-77 10:08 RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 



( 1 ) 


SI 3432 


056226 


<M0VE1 WfcOUT I MEMXJ INCMARKSELB10BA1» 


915 


til 3434 




OUTPUT MEMX!INCMAR»«SEL8J0BA2> 


;OUTPUT HIGH BYTE OF ADDRESS 


( 1 ) 




£to0445 


MICPC*M1CPC+1 






*J1 3434 


$56227 


<MOVEJWROUT!MEMX1INCMARKSELBIOBA2» 


916 


3 4 36 




SP IBUS, UBBR, 5P0 


'READ THE BUS REQ REGISTER 


( 1 ) 




2)00446 


MICPC*MICPC+1 




(15 


ftl 3436 


1 23220 


<MOVEi 5PX I IBUSIUBBRI SP0> 






3! 3448 




BRWRTE IMH,lgl 


. MASK OFF ALL BUT NXH AND VEC4 BITS 


( 1 ) 




900447 


MICPC=M1CPC+1 




( 1 ) 


Ml 344(5 


0tj0501 


<HOVE! WRTEBRt IHMJ<101>> 




918 


013442 




SP BR, AANDB, SP0 


;AND SAVE IN SP0 


( 1 ) 




000453 


MICPC»HICPC+1 










<MQVEi SPX1BR1 AANDB i 3P0> 




919 


01 3444 




SP IMM,3(J0,SP5 


;MASK TO ISOLATE EX, HEM BITS 


( 1 ) 




00#451 


MICPC*M1CPC+1 


( 1 ) 


0134 44 


003305 


<M0VE1 SPXi 1MH1 300 J SP5> 




920 








yNOTE THIS REALLY WRITES A 305 BUT THE 


921 








}5 GETS SHIFTED OUT 


922 


01 3446 




BRWRTE MEMX, AANDBJ SP5 


(MASK ALL BUT EX. MEM BITS 


( 1 ) 




300452 


HICPC*M1CPC+1 




C 1 ) 


CI 3446 


340665 


<M0 VE 1 WPTEBRI ME MX 1 <AANDB J SP5» 




923 


013450 




BRSHFT 


1 SHIFT THEM INTO THE CORRECT POSITION 


( 1 ) 




00045 3 


MICPC*MICPC+1 




( 1 ) 


<>\ 3450 


001620 


< MOVE I SHFTBR J WRTEBR 1 SELB> 




924 


01 3452 




BRSHFT 




( 1 ) 




00045 4 


HICPC*MICPC+1 




( 1 ) 


41 3452 


£01620 


<HOVE i SHFTBR ! WRTEBR 1 SELB> 




925 


Ul 3454 




BRSHFT 




( 1 ) 




000455 


MICPC»MICPC+1 




( 1 ) 


Bl 3454 


001620 


<M0VE1 SHFTBR! WRTEBRJSELB> 




926 


81 3456 




BRSHFT 




1 1 ) 




0V0456 


HICPC»H1CPC+1 




( 1 > 


i/13456 


001620 


<MOVE; SHFTBR J WRTEBR J SELB> 




927 


013460 




OUT BR,A0RB10BR 


; WRITE EX MEM BITS OUT 


(1) 




000457 


MICPC=MICPC+1 


(1) 


01346k) 


061311 


<M0VE1WR0UTX1BR!<A0PBJ0BR» 




928 


013462 




ALWAYS IDLE 




(1) 




000460 


HICPC"HICPC+1 




(1) 


1*13462 


100445 


<JU«P!ALCONDi<IDLE-INITfc3000#4>!<IDL£-INIT&777/2» 


929 


013464 




RB2: ALWAYS 12 




(1 ) 




000461 


MICPC-MICPC+1 




(1) 


013464 


100454 


<JUMPlALCOND<<l2-INIT&S000*4>l<l2-INIT&777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12118 P*GE 6-30 PAGE! 0089 

DDCNEW.MAC 21-APP-77 10:08 RCVC— ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINAL 



931 






.5BTTL RCVC— ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 


932 






I ENTERED FROM IDLE LOOP 


933 






> INTERPRETS SELECT AND FINAL 


934 
935 






;CHECKS FOR COUNT TOO LARGE 


936 


S! 3 466 




; 

HCVC" ALWAYS SELQSY . * £ .1 L L " SEL£CT'QSYNC SUBROUTINE 


(1) 




000462 


HICPC«MICPC+1* 


( 1) 


4>13466 


114470 


<JUMPIALCONDi<SELQSY-INITt3000«4>l<SELQSY-INIT4777/2» 


<>37 


013473 




LDMA BR,<SELA1SP14> ; LOAD ADDRESS OF CURRENT COUNT 


(1) 




300463 


MICPC«MICPC+1 


(1) 


W13470 


?70214 


<M0VE1LDMAR!BRJ<SELA1SP14» 


938 


013 472 




BRWRTE BRJINCMAR,SELA1SP1 J READ STATUS BYTE 


(1) 






MICPC»MICPC+1 


( 1 ) 


j'13472 


07 4601 


< MO VE1 WPTEBRI BR 1 INCH AR I <SELA 1 SP 1>> 


939 


M13474 




BRWRTE SHFTBRi INCMAR, SELB ; SHIFT II RIGHT 


(1) 




000465 


MICPCsMICPC+1 


( 1) 


(•13474 


&15620 


<M0 VE 1 WRTEBR 1 SHFTBR 1 1 NCMAR 1 <SELB» 


940 


013476 




BR1 RC5 J NO BUFFER ASSIGNED IN MAINT MODE 


(1) 




000466 


MICPC»M1CPC+1 


(1) 


U13476 


106475 


<JUMPlBRlCONJ<RC5-INIH,3000*4>I<RC3-INITi777/2» 


941 


til 3500 




BRWRTE IMM ! INCMAR, 77 ;MASK FOR COUNT BITS 


(1 ) 




000467 


KICPC»MICPC+1 


(1) 


013500 


014477 


<M0VE1WRTEBRJIMMIINCMARJ<77» 


942 


013502 




SP MEMX1 INCMAR, SELB,SP0 ;COPY HIGH BYTE OF COUNT TO SP0 


(1) 




000470 


HICPC»HICPC+1 


(1) 


J13502 


057220 


<MOVE ! SPX 1 MEMX i INCMAR I SELB I SP0> 


943 


013504 




BRWRTE BR, AANDB 1 SP0 >MASK TO BR 


( 1 ) 




000471 


MICPC"MICPC+1 


(1) 


013504 


060660 


<NOVE 1 WRTEBR t BR 1 < AANDB ISP0» 


944 


Dl3Sk>6 




CMP BR,SP5 f COMPARE HIGH ORDER BITS OF COUNT 


( 1 ) 




000172 


HICPC«M1CPC+1 


( 1 ) 


SM 3506 


060365 


<SUBTC1BR<SP5> 


945 


01 35 in 




C RCFATL fIF CARRY—TOO BIG ERROR 


(1) 




300473 


MICPC*MICPC+1 


( 1 ) 


31351H 


115116 


<JUMPJCCOND!<RCFATL-INITfc3000»4>J<RCFATL-lNlT&777/2» 


946 


HI 3512 




Z RCLOW ;IF EQUAL COMPARE LOW ORDER BITS OF COUNT 








MICPChMICPC* ! 


(1) 


013512 


115513 


<JUMPlZC6ND'<RCLOW-INIK3000»4>!<RCLOW-INm777/2» 


947 


313514 




RC5: STATE RCVD jSET NEXT STATE TO D 


( 1 ) 




S00475 


HICPC«MICPC+1 


( 1 ) 


013514 


900477 


<MOVElwRTEBRHMHJ<RCVD-INITS777/2» 


948 


<"13516 




ALWAYS REXIT 


( 1 ) 




P00476 


MICPC«M1CPC+1 


(1 ) 


CI 3516 


104422 


<JUMP> ALCONDJ<REXIT-INITS3000#4>KREXIT-INITS l 777/2» 



DMCU DDCMP PROTOCOL IMPLEMENTATION 
DOCNLrf.MAC 21-APR-77 10I0B 



MACYU 30(1046) U-JuL-77 12: IS PAGE b-31 

RCVD-. ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 



PAGE ! 0090 



950 
951 






. SBTTL RCVD— ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 


952 


1* 1 3520 




; 

RCVDJ SP BR,DECA,SP4 ;DECREMENTLOH BYTE OF COUNT 


( 1 ) 




000477 


HICPCMICPC + 1 


( 1 ) 


"1 3520 


063164 


<M0VEiSPXiBRiDECAJSP4> 


95 3 


01 3522 




C RD3 ;N0 OVERFLOW 


( 1 ) 




000500 


HICPC«MICPC+1 


( 1 ) 


01352? 


105102 


<JUMPlCCOND!<RO3-INITfc3000«4X<RD3-INIT&777/2» 


954 


fij 3524 




SP BR,DECA,SP5 ;OVERrLOW - DECREMENT HIGH BYTE 


( 1 } 




000501 


MICPCeMICPC+1 


( 1 ) 


613524 


363165 


<M0VE!SPX1BR|DECAJSP5> 


955 


81 3526 




RD3: STATE RCVE 


C 1 ) 




300502 


MICPC«MICPC+1 


f 1) 


1413526 


000523 


<MOVElWPTEBRlIMM|<RCVE-IHITt777/2» 


956 


013530 




RD2: SP BR,SELB,SP3 ;SAVE THE STATE 


( 1 ) 




000503 


HICPCeMICPC+1 


( 1 ) 


H13530 


«6J223 


<M0VE1 SPX ! BP J SELB 1 SP3> 


957 


013532 




SPBR IBUS,RCVDAT,SP0 ; INPUT THE CHARACTER 


( 1 } 




000504 


MICPC"MICPC+I 


( ) ) 


01 3532 


023600 


<M0VE1 SPBRX1 IBUS1 RC VDAT1 SP0> 


958 


VI 3534 




BRWRTE BR,SUB1SP17 ;COMPARE NEW R TO LAST R 


( 1 ) 




200505 


MICPC«HICPCtl 


(1 ) 


PI 3534 


060757 


<MOVE i WRTEBR | BR I <SUB 1 SP1 7» 


959 


PI 3536 




BR7 10$ ;IF NEW IS GREATER— PROCESS 


( 1 ) 




900506 


MICPC«HICPC+1 


( 1 ) 


01 3536 


107510 


<JUHP!BP7CONK10S-INIK3000«4>l<10S-INITt77 7/2» 


96k> 


1*13540 




ALWAYS IDLE 


( 1 ) 




000507 


MICPC«MICPC+1 


( 1 ) 


01 3540 


100445 


<JUHPI ALCOND!<IDLE-lNITt3000»4>l<IDLE-INITi777/2» 


961 


HI 3542 




106: BRWRTE BR,SELA1SP1 ;READ STATUS BYTE 


( 1 ) 




t>00510 


MICPC«M1CPC+1 


( 1 ) 


f#l 3542 


060601 


<M0VE1 WRTEBR JBR!<SELA13P1» 


962 


B13544 




BR7 IDLE ; MAINT. MODE - GET OUT 


( 1 ) 




00051 1 


MICPC*MICPC+1 


< 1 ) 


013544 


1 03445 


<JUMP!BR7CONl<IDLE-INITi30B0*4>!<IDLE-INITS777/2>> 


963 


613546 




BRWRTE BR,SELA!SP10 


( 1 ) 




900512 


MICPC*M1CPC+1 


( 1 ) 


0135 46 


060610 


<MOVE t WRTEBR JBR! <SELA t SP10» 


964 


01 355A 




BRSHFt 


( 1 ) 




00051 3 


MICPC"MICPC+1 


( 1 ) 


913550 


001620 


<MOVE 1 SHFTBR • WRTEBR I SELB> 


965 


013552 




BR4 IDLE 


(1) 




000514 


HICPC«MICPC+1 


( 1 ) 


91 3552 


1 03845 


<JUMPlBP4CONl<IDLE.INIT43000*4>l<IDLE-INITS777/2>> 


966 


91 3554 




LDMA IMM,IsPl7 ; ADDRESS LAST ACKED IMAGE 


( 1 ) 




000515 


MICPC«M1CPC+1 


( 1 ) 


«M 3554 


010155 


<MOVElLDMARiIMM!<ISP17S377» 


96 1 


Vi 3556 




MEM BR,SELA!SP0 J COPY THE CHAR 






0005 1 6 


HICPC»HICPC+1 


(1 ) 


013556 


062600 


<MOVElWPHEM!BRl<SELAiSP0» 


968 


01356.1 




RD5: BRHPTE IMM, REPST 1 LDMAR ;SET UP COUNT FOR TIMER 


(1 ) 




000517 


HICPC*HICPC+1 


( 1 ) 


«M3S6<J 


010403 


<M0VE1WPTEBR1 IMM1<REPSTILDMAR» 


969 






| ••••DEPENDENT ON RfcPST * 2 


970 


U3562 




MEM IMM,1 ; RESET REP THRESHOLD 


( 1 ) 




090520 


MICPC"MICPC+1 



DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY1 1 30(1046) lt-JuL-77 12MB PAGE 6-32 PAGES 0091 

DDCNE.W.MAC 21-APR-77 10108 RCVD— ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

(1) H13562 002401 <H0VESWPMEMJIMM!<1» 

971 J13564 SP BR,SELB,SP15 ; RESET THE COUNT 
(1) D00521 MICPCM1CPC+1 

(1 ) 1.1 3564 063235 <MOVESSPX! 6R1SELBJSP15> 

972 J13566 ALWAYS IDLE 
(1) 0K0522 MICPC*MICPC+1 

(1) £13566 100445 <JUMPl»LCONDKIDLE-lNIH3000*4>l<IDLE-INITt777/2» 



DHCH DDCMP PROTOCOL IMPLEMENTATION 
DDCNLW.MAC 21-APP-77 10:88 



MACY11 3HC1046) ll-JUL-77 12:18 PAGE 6-33 
RCVE— ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 



PAGE] 0092 



974 






.SBTTL RCVE— ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 


975 
976 


SI 3570 




• 

RCVE: BRWRTE bR/SELA!SPl ; READ THE STATUS BITE 


( 1 ) 




003523 


HICPC E M1CPC+1 


( 1 } 


i'i 3570 


&60601 


<MOVE! WRTEBRl BRKSELA1 SP1>> 


977 


^13572 




BR7 RCVQ 


£ I ) 




0005 2 4 


f4XCPC s M!CPC+l 


C 1 ) 


'fl 3572 


10/713 


<JUHP i BR7CON | <RC VQ— £NZT&3000#4^ 1 ^RC VQ— INIT&77 7 /2*^ 


?y? 


fl 3574 




BRWRTE IBUSrRCVDAT J INPUT THE CHARACTER 


1 1 ) 




000525 


MICPCsMICPC+l 






1520600 


<MO VE I WRTEBR 1 1 BUS 1<RC VDAT>> 




ill 3576 




CMP BR* SP1 1 


\ 




300526 


MICPCsMICPC+1 


\ 


3576 


060371 


<SUBTC I BR 1 SP1 1> 


980 


CI 3600 




Z 5$ 


( 1 ) 




300527 


MICPC»MICPC+1 


CI) 


!>J 3600 


105532 


< JUMP! ZCOND 1<5S-INIT&3000*4> i <5$-IN IT&777 /2>> 


981 


191 3602 




SP BRfDECArSP13 ;F0RCE MSG TYPE TO -1 


CI) 




0005 30 


HICPC*MICPC+1 


C 1 ) 


01 3602 


063 1 73 


<MOVE!SPXlBRiDECAtSP13> . 


982 


\)1 3604 




ALWAYS RE 2 


1 1 ) 




00053 1 


MICPC»MICPC+1 


CI) 


913604 


10 4533 


< JUMP1 ALCOND I <RE2— INIT63000*4^ I <RE2— INIT6777 /2^* 


983 


013606 




5$: SP BR,INCA,SPH ; UPDATE R FIELD 


(1) 




900532 


NICPC=MICPC+1 


CI) 


013606 


063071 


<HOVE!SPXJBR!INCAlSPU> 


984 


913610 




RE2: STATE RCVF ;NEXT RECEIVE STATE IS F 


C 1 ) 




008533 


HICPC»HICPC + 1 


CI) 


013610 


300535 


<HOVEl WRTEBRi lMMl<RCVFi.INIT6777/2» 


985 


913612 




ALWAYS REXIT 








f4ICPC=HICPC+l 


( t ) 


1413612 


*04422 


<JUHP1 ALCOND J<REXIT-INITi3000*4>KREXIT-INITS777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 



DDCNEW, 


MAC 21 


-APR-77 


987 






988 


■Jl3t>14 




CI) 




0005 35 


CI) 


013614 


000540 


989 


913616 




i i ) 




0U0536 


CD 


£13616 


020200 


990 


i>13620 




CI) 




000537 


CI) 


D13623 


104422 


991 






992 






993 






994 


013622 




CI) 




000540 


CI) 


013622 


000542 


995 


013624 




CI) 




000541 


CI) 


4413624 


104536 



MAC Yl 1 30C1046) ll-JUL-77 12:18 PAGE 6-34 
RCVF— ROUTINE TO IGNORE ADDRESS 

.SBTTL RCVF— ROUTINE TO IGNORE ADDRESS 
RCVF: STATE RCVG 
MICPC»MICPC+1 

<MOVEl WRTEBRl IMMl<RCVG-INITt777/2» 
RCVF1; NOP IBUS.PCVDAT.fl (INPUT CHARACTER - AND DISCARD 

MICPC*HICPC+i 
<IBUSIRCVDAT10> 
ALWAYS REXIT 
MICPC«MICPC+1 

<JUMP1 ALCOND J <REXIT-IHITi3000*4>KREXIT-INITS777/2» 
I 

.SBTTL RCVG— ROUTINE TO IGNORE CRC1 

RCVG: STATE RCVH ; NEXT STATE IS RCVH 

MICPC«HICPC+1 

<M0VE1 WRTEBRI IMHKRC VH-IHITS777/2» 

ALWAYS F.CVF1 

HICPC»MICPC+1 

<JUMPlALCONDJ<RCVFl-INItfc3000*4>!<RCVFl-INITi777/2» 



PAGE: 0093 



DMC11 DDCMP PROTOCOL IMPLEMENT At I ON 
DDCNEW , MAC 21-APB-77 13:08 



MACYll 30C1046) ll-JUL-77 12118 PAGE 6-35 PAGE I 0094 

KCVH. -ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



997 
998 






.S8TTL KCVH-. ROUTINE TO HANDLE 


CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 


999 


Ml 362b 




PCVH: 




1000 


01 3626 




5P IBUSf RC VDATf SP0 


(GET CHAR IN SP0 


CI) 




090542 


MICPC«MiCPC+l 




( 1 ) 


i'l 3626 


023200 


<MOVE!SPXJIBUSJRCVDATJSP0> 




leal 


01 3634 




BRWRTE ibus,rcvcon 


; READ RECVR CONTROL REGISTER 


( l ) 




0005 13 


MICPC«M1CPC+1 




( l ) 


31 3630 


<)2064J 


<MOVElWRTEBRiIBUSi<RCVCON» 




1 002 


01 3632 




bR0 TD0N1 


;IF BCC MATCH SET CKC IS GOOD 


CI) 




000544 


MICPC»MICPC+1 




CI) 


(ft 3632 


1 16167 


<JUMPlBR0CONKTDONl-IHIT63000*4>l<TDONl-INIT4777/2» 


1003 


k»l 3634 




BRWRTE BR, SELA! SP1 


J READ STATUS BYTE 


CI) 




300545 


MICPC*MICPC+1 




CI) 


01 3634 


060601 


<MOVEtWRTEBRiBRl<SELAISPl» 




1004 


1)13636 




BR7 RHX 


•MA1NT MODE 


C 1 ) 




300546 


HICPC«MICPCtl 




C 1 ) 


f 13636 


107751 


<JUMPlBR7CONi<RHX-IWT63000*4>l<RHX-INIT6777/2» 


104>5 


(913640 




BRNRTE DP,<SELAJSP10> 


fREAD PORT STATUS NORD TO BR 


C 1 ) 




090547 


MICPC*MICPC+1 




( 1 ) 


013640 


060610 


<M0VE1 HRTEBR JDPi<SELAtSP10» 




1046 


£13642 




BRSHFT 




CI) 




000550 


MICPC»MICPC+1 




CI) 


313642 


001620 


< MOVE 1 SHFTbR 1 HRTEBR 1 SELB> 




1007 


01 3644 




BR4 SNAKl 


J IF START MODE—PROCEED TO RESEND START 






00055 1 


MICPC«MICPC+1 




C 1 ) 


C13644 


1 17315 


<JOHP!BR4CON!<SNAKi-IHITt3000*4>t<SNAKl-INITS777/2» 


IP 08 


$13646 




LDMA IMM,T 


; ELSE BCC ERROR— LOAD ADDRESS OF TYPE FI 


CI) 




000552 


MICPC»MICPC+1 




CI) 


013646 


010153 


<MOVEI LDMAR 1 IMR1 <T6377>> 




1009 


Z 13650 




MEMINC IMM, 2 


; WRITE NAK TYPE 


CI) 




000553 


HICPC«M1CPC+1 




CI) 


Ml 3653 


£16442 


<MOVEI WPMEMI INCMARJ IMM J<2>> 




1010 


ill 3652 




MEMINC IMM, 301 


; WRITE HEADER BCC ERROR SUBTYPE 


CI) 




000554 


MICPC»MICPC+1 




CI) 


C13652 


016701 


<MOVE! WRMEM !INCMARIIMMJ<301» 




1011 


01 3654 




MEM BR,SELA!SPl7 


f RESTORE LAST ACKED IMAGE 


CI) 




000555 


HICPC«MICPC*1 


CI) 


HI 3654 


062617 


<MOVE! WRMEM !BR!<SELA13P17>> 




1012 


H3656 




LDMA IMM.NHDS 


} ADDRESS CUM ERROR COUNTER 


CI) 




000556 


HICPC«BICPC+1 


C 1 ) 


31365b 


010013 


<M0VtlLDMARlIMM!<NHDS&JT7» 




1013 


Ul 3660 




RH5: SP MEMX,SELB,SP0 


} WRITE IT TO SP0 


CI) 




000557 


MICPC«MICPC+1 






PI 3660 


043220 


<M0VE1 SPX 1 HEMX1 SELB i SPfl> 




1014 


■•■13662 




MEM BR,INCA!SP0 


| INCREMENT IT 


CI) 




000560 


MICPC«MICPC+1 


CI) 


013662 


062460 


<MOVE 1 WPMEM • BR J <INC A 1 SP0» 




1015 


113664 




LDMA IMM,N»KST 


; ADDRESS NAKS TMTED DYNAMIC 


CI) 




000561 


MICPC»MICPC+1 




CI) 


U13664 


010001 


< HOVE 1 LDMAR ! IMM 1<N AKST4377>> 




1816 


fc'1366o 




BRHRTE HEMX,SELB 


fWRITE IT TO BR 


CI) 




000562 


HICPC»MICPC+1 


CI) 


£13666 


040620 


<M0 VE 1 NRTEBR 1 MEMX 1 <SELB» 




1017 


913670 




BSHFT& 


; SHIFT IT RIGHT 


C 1 ) 




000563 


MICPC'MCPC+1 





DMCU DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) tl-JUL-77 12118 PAGE 6-36 PAGE; 0095 



DCNtii 


MAC 21 


-APR-77 10:08 


PCVH- 


-ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


CI) 


013670 


061620 




<MOVE! SHFTBR 1 SELB 1BR> 


1018 


»13672 






MEM BR, SELB ; UPDATE IT 


CI) 




PJ9564 




MICPC«MICPC+1 


C 1 ) 


913672 


062620 




<MOVEi WRMEM! BR 1<SELB>> 


1019 


013674 






BR0 NTHRES ; BRANCH IF THRESHOLD EXCEEDED 


C 1 ) 




000565 




MICPC»MICPC+1 


C 1 ) 


/13674 


1 16264 




<JUMP!BR0CONl<NTHRES-INITfc3000«4>!<NTHRES-INlT&777/2» 


102» 


913676 






ALWAYS SNAK 


CI ) 




003566 




MICPC«MICPCtl 


1 1 ) 


013676 


1 14712 




<JUMPlALCONDKSNAK-INITb3000*4>l<SNAK-INIT&777/2» 


1121 


M 3700 




RH3t 


BRWRTE DP,<DECA!SP13> ; LOAD TYPE RECEIVED— DECREMENTING 


C 1 ) 




000567 




MICPC»MICPC+1 


C 1 ) 


013700 


060573 




<M0VEIWRTEBR1DP]<DECAISP13>> 




0137il 






L fthl J IF ALUOUT IS ALL ONES IS NUMBERED 


C 1 ) 




600570 




MICPC«MlCPCtl 


C 1 ) 


1913702 


1 15505 




<JUMPUCONDKRHl-INIT*3000«4>l<RHl-INITfc777/2» 


1^ 23 


'013704 






RSTATE RCVA 


C 1 ! 




0005 71 




HICPC»MICPC+1 


C 1 ) 


013704 


900400 




<MOVEI WPTEBRlIMMl<RCVA-IIIIT«i777/2» 


CI) 




P00572 




MICPC«MICPC+1 


CI) 


813706 


063223 




<MOVE I SPX ! BR 1 SELB i SP3> 


1024 


313710 






bRHRTE DP,<SELAtSP10> (LOAD LINE STATUS WORD IN BR 


CI) 




0005 73 




MICPC»M1CPC+1 


CI) 


013710 


060610 




<M0VE1 NRTEBR JDPKSELA J SP10» 


1025 


IM3712 






8R4 FLUSHl 


CI) 




000574 




HICPC»MICPC+1 


C 1 ) 


•13712 


1 17040 




<JUMPlBR4CONI<FLUSHl-INITt3000»4>KFLUSHl-INlT4,777/2>> 


1026 


313714 




CGU 


BRSHFt jSHIFT RIGHT 


C 1 ) 




005»575 




MICPC-MICPC+1 


C 1 ) 


013714 


)01620 




<M0 VE 1 SHFTBR t HRTEBR 1 SELB> 


1027 


Iti 3716 






BR4 10$ 


CI ) 




0005 76 




MICPC«MICPC+1 


C 1 ) 


013716 


107204 




<JUMPlBR4COMl<i0S»INITt3ee»*4>i<i0»-INITi777/2» 


1028 


C 1 3720 






LDMA IMM, TYPTAB ; ADDRESS TYPE TABLE 


(1) 




000577 




MICPC"MICPC+1 


C 1 ) 


(,1 3721,; 


0l0lb3 




<M0VE1LDMAR1IMMI<TYPTABS377» 


1029 


313722 






CMP <MEMX!INCMAR>,3P13 


C 1 > 




000t>00 




MICPC«HICPC+1 


CI) 


013722 


054373 




<SUBTC | MEMX 1 INCMAR 1 SP1 3> 


1030 


013724 






Z REP 


C 1 ) 




0H0601 




MICPC»MICPC+1 


CD 


i.1 3724 


1 15404 




<JUMPUCONDl<REP-INIT«3000«4>l<REP-INIT&777/2» 


1031 


t'13726 






CMP <MEMX{INCMAR>,SP13 


CI) 




0KJ602 




MICPC«M1CPC+1 


C 1 ) 


013726 


H54173 




<SU8TC!MEMXJINCMAP!SP13> 


1032 


«M 373.0 






Z NAK 


CI) 




0'<?603 




MICPOHICPCtl 


C 1 ) 


til 373k) 


1 15443 




<JUMPlZCOND|<NAK-INlT&3000»4>l<NAK-INIH,777/2» 


1U33 


/i 3732 




10$: 


LDMA IMM, TYPSTT :SET POINTER TO START TYPE 


C 1 ) 




0H^h04 




MICPC«MICPC+1 


C 1 ) 


IM 37 3 2 


810165 




< MOVE 1 LDMAR • IMM ! <TYPSTTS377>> 


1»«3 1 


»; 1 3 7 3 1 






CMP <MEMX!INCMAR>,SP13 


C 1 ) 




O^l?605 




MICPC«M1CPC*1 


( 1 ) 


fl 37 3* 


1554 37 3 




<SUBTC 1 MEMX ! INCMAR JSP 13> 


IH35 


h 1 37 ?6 






Z STAHT 


( 1 ) 




,mai>nb 




*ICPC»MICPCH 



DMCll DDCMP PROTOCOL IMPLEMENTATION 

ddcnew.mac 2i-»rn-7; j0:n8 



MACY1 1 30(1046) U-JUL-77 12:18 PAGE 6*37 PAGE I 0096 

RCVH— ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



( 1 ) 


t)l 3736 


115413 


< JUMP i ZCOND X <START«INIT&3000*4> I <STaRT"*INIT&777 /2*> 


1036 






f STACK TlfPE 


14337 


01 37 4** 




CMP <MEMXJ 1NCMAR> f SP1 3 


( 1 ) 






14 T P DP m y T P DP a. 1 


' ia 




t>5 4 i 7 3 


QIIRTP 1 MCMy 1 TliruiDI CD 1 1% 




4*13742 




7 eTirK 
£• q 1 H\*n 


t . i 
CI) 




U^o6 I a 


UTp DC ■Mil" DP a 1 


* * ' 


.»j 3742 


a « 5425 


^ JUMP 1 2>C G" D lC5TACK*XfjXT&3000^4^ £ <*ST**CK™IKITi777 f 




bl 3744 




f«p ^Mf MY 1 TNrMKD^ coi 1 • APR* TVPF 


Ml 




0<J06 1 1 


MICPC*HICPC+ 1 


f ) 


91 3744 


i>5 43 7 3 


<subtc i mem x i xncmab j spi 3> 


040 


31 3746 




Z ACK 


- . - 




P33612 


HICPC*MICPC+i 


1 1 ) 


01 3746 


1 05620 


< JUHpl ZCOND £<ACK w lNIT63000*4> { <ACK»INIT&7 77 /2>> 




(51 3753 




ALWAYS IDLE jGTHERtolSE IGN0RE""MUSI BE OBS MSG 


t \ 






M T f* Of* ■ M t p dp ■*. 1 


ft 1 


17S« 




^.TliMD 1 &t.rnun I rf« T nf.R*_ r u tft iaaa«iiv I ^ t rM,fi*»T H t ft Tst / r>%% 

^UUHf 1 Auw vNU i % iLtuc>*i IX Ifc JDU 1Qi*H* * ^ lL/ub "inJ,lM / f t f * 


1043 






ttCMCK* <drd ' trfk orvmn cd« vrpad orvR control rsfl 






SJ00b 1 4 


HICPC*MICPC+1 


f 


_ 


£ I J D *K7 




Hid 


i-'l 




RDUDTF CD Ann 1 CDfl • QU I CT T PPT 


( 1 ) 




- 

* * ,„ 


MTf"DrKMTPDT*1 
nit fc*t *ri AtrV«T 1 


1 1 1 




06 040il 




' f i 


*1 3756 










0006 1 


M T P DP • U T P DP j. 1 


: : : 
* 




1 03452 


^•TIIMP 1 RR7f*ON ! 1 «TM TTt 3flaa*A> l^Tl .TNTTL7T7 ynsv 










(1 ) 




"30617 


MTr dp aiiir dp j. i 
pi IVr rt ■ w i. c r\. ▼ 1 


( j ) 


SH 3760 


1 1 0405 


< JUMP I ALCOND J <IAl *IillTfc3000#4> 1 <TAJ. •INIT&77 7 /1» 


* IT 


CI 3762 




ACK ; bRWRTE BRf A A 2 5P10 | READ LINE STATUS*SHIFTING LEFT 






100b 20 


M T Q v c * H T P DP a 1 






k/o 03 Jo 


ylinVP 1 UDTrRD IDDI/11 1 ani d\\ 
VnUVLi Br 1 CtOt\ iDni \nA 1 Sri 


104 








C 1 J 




0006 2 1 


nil, rt'PHCrLTl 


( I ) 


13764 


1 07223 




1049 


013766 




ALWAYS IDLE 






000b 22 




(1) 


913766 


100445 


<JUMPlALCONDKIDIiE-INIT63000^4>l<IDLE-INIT&777/2» 


1050 


013770 




5S: BRWRT6 IMM,327 ; CLEAR START MODE 


(1) 






MICPC«MICPC+1 


(1) 


Ifl3770 


800727 


<M0VEIWPTEBRJIMMS<327» 


1051 


013772 




SP BR,AANDB,SP10 jIN LINE STATUS 


(1) 




0#0t>24 


MICPC«MICPC+1 


(1) 


1,13772 


063270 


<MOVEISPX1BRIAANDB1SP10>* 


1052 


*13774 




ALWAYS RD5 


(1) 




9*0625 


HICPC«MICPCti 


(1) 


■413774 


104517 


<JUMP1 ALCOND J<RD5-I*IW3000*4>i<RD5-INITS777/2» 



DMC11 DDC»P PROTOCOL IMPLEMENTATION 
DDCNEU.MAC Ji-APR-77 10:08 



1055 
1056 



MACY11 30(1046) 11-JUL-77 12U8 PAGE 6-38 

RCVH— ROUTINE TO HANDLE CRC2 AID TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



PAGE: 0097 



;*«#«»**#»*##»»***TIME CRITICAL CODE-- CHANGE MITH GREAT CARE**»*»»#*»»**»«#»«»»* 
.SBTTL RC1TK01— ROUTIBE TO HANDLE FIRST BYTE ODD RECEIVE 



1057 


»U3776 




RCVKOl: 


SPBR IBUS,NPR,SP0 


jREAD NPR REGISTER 


(1) 




kjl't'626 




MICPC=MICPC+1 




(1 ) 


#13776 


123630 




<MOVE1SPBRX!IBUS1NPRISP0> 




1^58 


<M 4000 






EPS IDLE 




(1) 




300627 




MICPC»MICPC+1 




( 1 ) 


014000 


132045 




<JUMP!BR0CONKIDLE-INITt3000#4>!<lDLE- 


INITfc777/2» 


105-) 


414002 






BRHRTE IMM,200 


;MASK FOR C0CBYTE TRANSFER) 


(1) 




000630 




MICPC«MICPC+1 


( 1 ) 


»/I4002 


£40600 




<MOVE1WRTEBR1IMM'<200» 




lPbt) 


'414004 






OUT BR,<A0RB!0NPR> 


J TURN ON C0 


( 1 ) 




£00631 




MICPC-MICPC+1 


(1 ) 


£14004 


061310 




<M0VE!WR0UTXiBRKA0RBJ0NPR>> 




1061 


314006 






STATE RKE1 




(1 ) 




300632 




MICPCeMICPC+1 




(1) 


014366 


000670 




<M0VEJWRTEBRlIMBKRKEl-ItlITS777/2» 




1062 


!J14H13 






AL«AYS RCVK02 




(1) 




i 00633 




MICPC«HICPC+1 




(1) 


C14i;l3 


104637 




<JUMP1 ALCONDl<RCVKO2-imiii3000*4>i<RCVKO2-INITfc777/2» 


1063 








.SBTTL RCVKO— PROCESS ODD CHARACTER 




1072 


314012 




RCVK0: 


SPBR 1BUS,NPR,SP0 


;IS AN NPR GOING 


( 1 ) 




000634 




HICPC«MICPC+1 


( 1 J 


U14,)12 


123600 




<MOVElSPBRX!IBUSiHPRlSP0> 




107 1 


014014 






BR0 IDLE 


;IF SO GET OUT 


( 1 ) 




000635 




KICPC«MICPC+1 




(1) 


'114014 


1 02045 




<JUMPJBP0CON1<IDLE-INIT43000*4>1<IDLE- 


INIT&777/2» 


1074 


J14016 






STATE RCVKE 




(1 ) 




B006 36 




HICPC»MICPC+1 




( 1 ) 


M4016 


20E6 45 




<MOVE!WRTEBPJIMMJ<RCVKE-II»IT«,777/2» 




1075 


0t402)> 




RCVK02: 


SP BR,5ELB,SP3 


] SET STATE 


( 1 ) 




000b37 




MICPC«M1CPC+1 


(1) 




063223 




<M0VE1 SPX ! BR I SELB 1 SP3> 




1076 


014022 






OUTPUT IBUS> RC VDAT10UTDA2 


j OUTPUT A CHAR 


CI) 




?006 40 




MICPC»HICPC+1 


C 1 ) 


014022 


022203 




<MOVElHROUTHBUSKRCVOATt0UTDA2» 




1077 


Ml IJil » 










107"» 


k>14024 




RK81 


BRWRTfc IMM,2l 


jSET OUT NPR (Cl)- AND NPR REQ 


C 1 ) 




0J0641 




HICPC«MICPC+1 


CI) 


014024 


300421 




<M0VE1WRTEBP1IMM1<21» 




108J 


h/1402b 






5P IBUS,NPR,SP0 


; READ NPR REGISTER 


(1) 




000642 




MICPC«M1CPC+1 




CI ) 


914026 


123200 




<HOVEISPXJIBUS1NPRJSP0> 




1081 


H 140 30 




PK7: 


OUT BR,<A0RB(0NPR> 


; "RUE NPR REGISTER 


(1 ) 




000643 




MICPC«M1CPC+1 




tl) 


014^30 


061310 




<M0VEIWh0UTXlBR!<A0RBj0NPR» 




10B2 


bl 1032 






ALWAYS IDLE 




CI) 




)00b44 




MICPC«M1CPC+1 




CI) 


014032 


1H0445 




<JIIMP1 ALCOND J<IOLF-lNITS3000*4>i<IDLE- 


INITi777/2» 



DMCU DOCMP PROTOCOL IMPLEMENTATION 
DDCNFW.WAC 21-APR-7? 10S08 



MACY11 30(1046) ll-JUL-77 12S18 PAGE 6-39 
RCVKE--HANDLE EVEN BYTES 



PAGEi 0096 



1094 


<»1 40 ? 4 




RCVKE: 


BRWRTfc IBUS, NPR } READ NPR CONTROL REGISTER 


( 1 ) 




0006 45 




MICPC-MICPC + 1 


( 1 ) 


£14034 


1 20600 




<MOVEI WRTEBRl IBUSi <NPR>> 


1099 


ul4t)35 






BR0 IDLE 


( 1 ) 




£006 46 




MICPC»MICPC+1 


( 1 ) 


'41 4e36 


1 02045 




<JUHP|BR0COHl<IDLE-INITt3000»4>t<IDLE-INITfc777/2» 


nm 


(»1404»t 




RK5: 


SP IBUS,IOBA1,SP0 ; READ LOh BYTE OF BA TO SP 


( 1 ) 




000647 




HICPC«M1CPC + 1 


( l ) 


01 4040 


0231 40 




<MOVEi SPX! 1BUSI I0BA1 ! SP0> 


1102 


014042 






OUTPUT DP,<INCA10BA1> jWRITE INCREMENTED BA 


( 1 ) 




900650 




MICPC«M1CPC+1 


1 1 ) 


914042 


062066 




<M0VE!WR0UT2DPi<INCA(0BAl» 


1 103 


014C44 




RK501 


SP BR r DECA,SP4 J DECREMENT CHARACTER COUNT 


( 1 ) 




P00651 




HICPC*MICPC+l 


( i ) 


014044 


063164 




<M0VE1SPXIBRJDECA1SP4> 


1104 


01 4046 






C 10$ |N0 OVERFLOW 


( 1 ) 




000652 




MICPC«MICPC+1 


( 1 ) 


4,1 1046 


1 05255 




<<JUMPiCCONDl<l0$-INIT63000*4>K10S-INIT&777/2» 


1105 


014050 






SP BR,DECA r SP5 i OVERFLOW - DECREMENT HIGH BYTE 


( 1 ) 




000653 




MICPCMICPC+1 


(1) 


J14050 


063165 




<M0VE!SPXJBRJDECAISP5> 


1106 


014052 






Z RL3 J BYTE COUNT ZERO 


( 1 ) 




00365 4 




MICPC«MICPC+1 


f 1 ) 


014052 


10S721 




<JUMPlZCOND!<RL3-INITt3000*4>J<RL3-INITti777/2» 


1 107 


U14054 




10$: 


SP IBUS,IOBA1,SP0 f READ INCREMENTED BA 


( 1 ) 




600655 




MICPC=MICPC+1 


( 1 ) 


014354 


023140 




<MOVE 1 SPX ! I6US 1 I0BA1 1 SP0> 


1108 


014056 






OUTPUT DP,<INCA10BA1> J WRITE INCREMENTED BA 


( 1 ) 




000656 




HICPC*MICPC+i 


1 1 ) 


B14056 


062066 




<MOVESWPOUT1DPKINCAJOBA1» 


1109 


414060 






C ICBA22 j IF CARRY INC BA HIGH 


1 1 ) 




000657 




MICPC«M1CPC+1 


( 1 ) 


014060 


1 15030 




<JUMP!CCOND!<ICBA22*INIT&3000»4>l<ICBA22-INIT&777/2» 


1110 


014062 




,RK9j 


SP IBUS,RCVDAT,SP0 jREAD CHAR AND SAVE IN SP0 


( 1 ) 




400660 




MICPC«MICPC+1 


( 1 ) 


014062 


■423200 




<M0 VE I SPX 1 IBUS 1 RCVDAT ! Sp0> 


1111 


014064 




rK3: 


OUTPUT BR,SELA!OUTDAl ;WRITE THE CHARACTER 


( 1 ) 




1.00661 




MICPC«MICPC+1 


( 1 ) 


014064 


F62202 




<MOVEJWROUT!BRKSELAiOUTDAl» 


1112 


614066 






SP BR,DECA,SP4 ; DECREMENT THE COUNTOF BYTES 


( I ) 




£44662 




HICPC«MICPC+1 


( 1 ) 


014066 


063164 




< MOVE ! SPX 1 BR i DEC A 1 SP4> 


1113 


01 4070 






C RK6 ;N0 OVERFLOW 


( 1 ) 




000663 




MICPC«MICPC+1 


( 1 ) 


til4070 


1 05266 




<JUMPICCONDi<RK6-INIT&3000M>l<RK6*INITfr777'2» 


1114 


014072 






SP BR,DECA,SP5 ; DECREMENT HIGH BYTE OF COUNT 






090664 




MICPC»MICPC+1 




B14072 


063165 




<M0VE1SPXJBR!DECA1SP5> 


1 115 


414J74 






Z PL4 ; BYTE COUNT ZERO 






J00665 




MICPC«M1CPC+1 




014074 


1 U765 




<JUMPlZCONDKRL4-INlT(i3000*4>l<RL4-INIT&777/2» 


1 125 


t<14076 




RK6: 


STATE RCVKO 






000666 




MICPC«MICPC+1 




(♦14076 


000634 




<MOVElWRTEBR!IMMKRCVKO-INIT«.777/2» 


1126 


■11410.1 






ALWAYS REXIT 



DMCU 


DOCMP PROTOCOL IM 


DDCNt 


W.MAC 2 


-4PR-77 


( 




000667 


(1 


) '514100 


104422 


it; 






112 


9 k!4102 




i 




3006 70 


t 


} J14102 


123200 


112 


c 014104 




( 1 




300671 


(1 


) M4104 


0005 77 


11. 


1 LI 4 106 




( 1 




000672 


(1 


) 014106 


061270 


1 1 3 


2 t 141 10 




( 1 




t-0067 3 


(1 


) W1411-) 


104651 


112 






1 13 






113 


5 814112 




1 1 




t)00674 


( I 


) C14112 


023200 


113 


6 P14114 




(1 




000675 


(1 


) 114114 


9606311 


113 


7 C14U6 




( I 




t>00676 


( I 


) J14U6 


117603 


113 


t'14120 




( 1 




000677 


(1 


) 014120 


104661 



MACYU 30(1046) ll-JUL-77 12 1 1 6 PAGE 6-40 
RCVKE — HANDLE EVEN BYTES 



PAGE ! 0099 



MICPC»MICPC+t 

<JUMP!ALCONDl<REXlT-INlTfc3000»4>t<ReXIT-INITi777/2» 



RKEU 



SP IBUS, NPR, SP0 

MICPC»MICPC+1 
<MOVE!SPX2IBUS!NPR1SP0> 
BRWRTE IM»,1-»7 
MICPC«HICPC+X 
<M0VE1WRTEBR1IMMI<177» 
OUT BR,<AANDB10NPR> 
MICPC»MICPC+1 
<M0V£!WR0UTXlBR!<ftANDB!ONPK» 
niujy* P.K51* 
HICPC»MICPC+1 

<JUMP|ALCONDi<RK50-INITCi3000M>l<RK50-INI»777/2» 
;*»»»*»#**»»»«»»*«END OF TIME CRITICAL PATH*****»»«**»*««*»ft*«»******«*»»***«*«* 



J READ NPR REGISTER 
J MASK FOR ALL BUT C0 
jTURN OFF ALL BUT C0 



RCVKEf); SP IBUS, RCVDAT, SP0 

MICPC»MICPC+1 

< MOVE! SPX 1 IBUS I RCVDAT 1 SP0> 
BRWRTE BR.SELA'SPl 
MICPC*MICPC+1 

<M0 VE ! WRTEBR 1 BR ! <SELA 1 SP1 » 
BR7 PASWRO 
MICPC«MICPC+1 

<JUMPlBR7CON><PASHRD-INIT&3000»4>l<PASWRD-INIT&777/2» 
ALWAYS RK3 (OTHERWISE PROCESS NORMALLY 

MICPC«MICPC+1 

<JUMPlALCONDl<RK3«INITtt3000*4>KRK3-INITt.777/2>> 



(READ CHARACTER AND SAVE IN SP0 
; READ STATUS BYTE 

; MAINT MODE - SEE IF RLD MESSAGE 



DMCll DDCHP PROTOCOL IMPLEMENTATION HACY11 3m(1H46) H-JuL-77 12H8 PACE 6-41 

DDCSifcw.MAC ii-APH-7? jSjui hCVI— S1URE UNNUMBERED MESSAGE TYPE 



1 1 4 k) 






. SBTTL KCVI--STORE UNNUMBERED MESSAGE TYPE 


1111 






HCVIJ SP IBUS.RCVDATf SP13 ;STORE UNNUM8EKED TYPE 


( 1 ) 




,.w,»70» 


HICPC«M1CPC+1 


fl ) 


014122 




<HOVtISPXl IRU3lRCVDATlSPl3> 




OI4S24 




STATE HCVJ jNEXT STATE IS J 


(1) 




^00701 


f'ICPC*MlCPC + l 


(1) 


U14124 


01*47143 


<«OVEJNPTEt>Hl IMHJ<RCVJ-IHITi777/2» 


114 3 


814126 




ALWAYS REXIT 


( i ) 




000702 


MICPC»H1CPC + 1 


(1) 


214126 


104422 


<JUMPJALCONDKREXlT-I"IT*.3000»4>l<REXIT-INITfc777/2» 


1144 






) 



DMCll t)UC«P PROTOCOL IMPLEMENTATION f'ACYll 30(1046) ll-JUL-77 12llt PAGE 6-42 

DDCNEx.MAC 21-APR-77 10108 RCVJ— ROUTINE TO HANDLE SUBTYPE FIELD, SELECT AND FINAL 



1146 






.SBTTL RCVJ— ROUTINE TO HANDLE SUBTYPE FIELD, SELECT AND FINAL 


114? 


01413d 




RCVJ: ALWAYS SELQSY |"CJU.L« SELECT AND USYNC SUBROUTINE 


(1 ) 




000703 


HICPC«MICPC*i 


( 1 ) 


0141 30 


1 144 7.) 


<JUMP! ALCONDKSELQ3Y-INITS3000*4>i<SELOSY-INITS777/2» 


11 1H 


.114132 




STATE RCVR f NEXT STATE IS N 


(1 ) 




009704 


MICPC»MICPC*i 


( 1 ) 


014132 


000706 


<MOVE«*RTEBRlIMMl<RCVR-illITt.777/2» 


1 14-J 


014134 




ALWAYS REXIT 


(1) 




MM70S 


MICPC'MICPC+1 


(1 ) 


#14134 


104422 


<JUMpiACCONDKREXIT-INIf»,J800«4>!<REXIT-INITt777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APK-77 10:08 



MACY11 30(1046) U-JUL-77 12:18 PAGE 6-43 
RCVR-- UN NUMBERED HLSSAGE RESPONSE FIELD 



PAGE I 0102 



1151 






1152 






1153 






1 154 
( 1 ) 


S141 36 


»tfa706 


( 1 ) 


<51413u 


0004«»3 


1155 
( 1 ) 


414140 


«00707 


( 1 ) 


01 41 4>5 


060351 


1156 
( 1 ) 


1*141 42 


000710 


( 1 ) 


91 4 1 4 2 


j>007 1 3 


1157 






1158 
(1 ) 


014144 


003711 


(1) 


"514144 


105136 


1159 
(1) 


PI 4 146 


000712 


CI) 


314146 


104503 



.SBTTL RCVR-- UNNUMBERED MESSAGE RESPONSE FIELD 
; ENTERED FROM IDLE LOOP 



;REP MESSAGE TYPE TO BR 



;IS TKPE ACK OR NAK 



; NEXT STATE IS RCVQ 



! 

HRWRTE IMM,3 
MICPC«M1CPC+1 
<M0VE1HRTEBR|IMM!<3» 
NOP BR,SUB,SP13 
MICPC»MICPC+1 
<BRiSUBlSP13> 
STATE RCVQ 
MICPC«MICPC+1 
<MOVEi«RTEBRlIMM!<RCVO-INITti777/2» 

;»««NOTE THIS INSTR DOES NOT CLOCK 
C RCVF1 ;IF NOT IGNORE 

HICPOMICPC+1 

<JUMP!CCONDt<RCVFi-INIT&3000*4>l<RCVFl-INIT&777/2» 
ALWAYS RD2 ;D0 RANGE CHECKS 

MICPC»MICPC+1 

<JUMPlALCONDt<RD2-INITfc3000»4>KRD2-INITt,777/2>> 



DMCU DDCMP PROTOCOL IMPLEMENTATION 
DDCNBW.MAC 21-APR-77 10:08 

1161 
1162 
1163 

1164 £114154 

(U 940713 
(1) t'14150 K00535 

1165 011152 

(1) 003714 
(1) HM152 1 04536 



MACYl 1 30C1046) H-JUL-77 12:18 PAGE 6-44 
RCVQ — UNNUMBERED MESSAGE— NUMBER FIELD 



PAGE] 0103 



RCVQ- -UNNUMBERED MESSAGE- 
FROM IDLE 



"NUMBER FIELD 



;NEXT STATE IS ADDRESS 



.SBTTL 

; ENTER 

; 

RCVO: STATE RCVF 
MICPCBMICPC+1 

<M0VElWRTEBRlIMM|«RCVF-IHITS777/2» 

ALWAYS RCVF1 

MICPC«MICPC+1 

<JUMPlALCONDJ<RCVFl-I*IT430BSM>l<RCVFl-INITi777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.HAC 21-APR-77 10S08 



HACY11 30(1046) ll-JuL-77 12118 PAGE 6-45 

RCVL—PROCESS CPC3 



PAGE: 0104 



1 


67 








.SBTTL RCVL— PROCESS CRC3 


i 


68 








; ENTERED FROM IDLE LOOP 


1 


69 


014154 




RCVL: 


SP6R 1BUS,NPR,SP0 t HEAD NPR CONTROL 




1 ) 




005)715 




MICPC*MICPC+1 




1 ) 


014154 


123600 




<HOyE!SPBRX!IBUSlNPRJSP0> 


1 


74 


014156 






BR0 IDLE 




1 ) 




0*0716 




MICPC*MICPC+1 




1 ) 


PI4156 


102045 




<JUMPlBR0COMJ<IDLE-INIT430g0»4>!<IDLE-IMITS7?7/2» 


1 


76 


5314166 




RL2S 


bRWRTE IMM, 177 ;HaSK TO TURN OFF C0 




1 ) 




040717 




MICPC»MICPC+1 




1 ) 


014160 


0005 77 




<H0VE1 WRTEBR! IM"l<177» 


1 


77 


014162 






OUT BR, AANDBJONPR 




! 1 




6590723 




HICPC=MICPC+1 




1 ) 


014162 


061273 




<M0VE1 HROUTX] BR! <AA"CBiONPR>> 


1 


78 


014164 




RL3 ! 


SPBR IBUS, IOBA1,SP0 • READ LOW ORDER BITE OF ADDRESS 




1 ) 




000721 


v 


HICPC«MICPC+1 






014164 


3235 40 




<MOVE!SPBRXHBUS!IOBA1ISP0> 




79 


tfl 4 1 66 






OUTPUT BR,INCA!0BA1 ; INCREMENT THE LOW ORDER BITE 




1) 




000722 




HICPC»MICPC+1 




1 ) 


S514166 


£62066 




cMOVL! WROUTJBRi<INCAJOBAl» 


1 




t'1417vJ 






SP IBUS,IOBA2,SP0 • READ HIGH BYTE 




1 ) 




000723 




HICPC*MICPC+1 




1 ) 


D14170 


023160 




<MOVE!SPXlIBUSiIOBA21SP0> 


1 


81 


014172 






OUTPUT BR,ACJ0BA2 | ADD CARRY TO HIGH BYTE 








900724 




MICPC*HICPC+1 






014172 


(562107 




<MOVE!WROUT<BR(<ACiOBA2» 


1 
1 




914174 






; 

STATE RCVM 








P00725 




MICPC*MICPC+1 






114174 


300727 




<MOVE!WRTEBRSlMMKRCVM-INIK777/2» 


1 




'14176 






ALWAYS RCVF1 








0007/6 




HICPC«MICPC+1 






014176 


104536 




<JUHPiALCONDi<RCVFl-I«IIT43000»4>l<RCVFl-INITi777/2» 



1185 



DMC11 DDCHP PROTOCOL IMPLEMENTATION MACYU 30(1046) ll-JUL-77 12118 PAGE 6-46 PAGE: 0105 

DDCNEW.HAC 21-APP-77 10:08 RCVM— PROCESS CRC4--END OF DATA MESSAGE 



1192 






.SBTTL RCVM— PROCESS CRC4— END OF DATA MESSAGE 


1193 






; ENTERED FROM IDLE LOOP 


1191 
1195 






;IF CRC CORRECT — QUEUE IHTERUPT AND UPDATE RESPONSE 


1196 






; 

j IF CRC WRONG SEND NAK 


1197 


(M420S! 




RCVM: BRWRTE IBUSf UBBR ; READ UHIBUS BR REGISTER 


CI ) 




000727 


HICPC»MICPC+1 


(1) 


'.14200 


120620 


<MOVE 1 WRTEBR ! IBUS !<UBBR» 


1198 


014202 




BR0 NXMERR jNON-EXISTANT MEMORY 


(1) 




000730 


MICPC«MICPC+1 


(1) 


1)14202 


1 16063 


<JUMPlBR0CONl<NXMERR-INIT&3000*4>l<NXMERR-INlT&777/2» 


1199 


H4204 




SP IBUS.RCVDATr SP0 ; READ CRC CHARACTER 


CI) 




E»*i731 


MICPC»MICPC+1 


CI) 


014204 


1,23203 


<MOVE I SPX i IBUSl RC VDAT1 SP0> 


120* 


£14206 




BRWRTE IBUS,RCVCON J READ RECEIVER CONTROL REGISTER 


CI) 




&0SS732 


MICPC»M1CPC+1 


CI ) 


014206 


020640 


<MOVE!WRTEBPlIBUS!<RCVCOtl» 


1201 


f-14213 




BR0 RCVM1 jIF CRC GOOD — PROCESS 


( 1 ) 




000733 


MICPC*MICPC+1 


CI) 


»M42l« 


116216 


<JUMpJBR0CON|<RCVMl-INITi3000»4>t<RCVMl-INITti777/2» 


1202 


014212 




BRWRTE BR.SELAISPI ; READ STATUS BYTE 


CI) 




000734 


HICPC*MICPC+1 


CI) 


014212 


060601 


<M0VE1 WRTEBRl BRKSELA1 SP1» 


1 203 


014214 




BR 7 RHX J CRC ERROR IN BOOT MODE • FLUSH 


CI) 




000735 


MICPC«HICPC+1 


(1) 


014214 


107751 


<JUMPIBP7CON!<RHX-INITS3000*4>!<HHX-INITfc777/2» 


1204 


014216 




LDMA IMM,T J ELSE SEND NAK —DATA ERROR 


CI) 




0H0736 


MICPC«HICPC+1 


CI) 


0l421o 


010153 


<M0VE!LDMAR!IMM!<Tfc377» 


12tfS 


014220 




MEMINC IMM,2 | NAK TYPE 


(1) 




f 00737 


MICPC*HICPC+I 


CI ) 


014220 


r«l6402 


<M0 VE 1 WRMEM ! INCMAR I IHM 1<2» 


12. 6 


H14222 




MEMINC IMH,302 ; DATA ERROR SUBTYPE 


(1 ) 




P0074d 


HICPC«MICPC+1 


CI) 


B14222 


016702 


<MOVE! WRMEM ! INCMAR J IMMi<302>> 


1207 


014224 




LDMA IMM, NDATS 


(1 ) 




fc<J0741 


MICPC»MICPC+1 






010yH5 


<«UVE1 LDMAR J IHM J <NDATS437 7>> 


1208 


i-14226 




ALWAYS RH5 ; SEND NAK 


CI ) 




000742 


MICPC=MICPC+1 


CD 
1209 


U1422o 


104557 


<JUMP! ALCOND!<RH5-INITSi3000»4>t<RH5-IKIT4777/2» 


1213 


■il423>* 




RCVM0: LDMA IMM, «RTHRS + 3» JP01NT TO ERROR WORD 


CI) 




500743 


HICPC=M1CPC+1 


CI) 


«!1423(? 


0131 77 


<MOVE!LDMARJIHM!«RTHRS*3>fc377» 


1211 


•14232 




BRWRTE IMM, 10 jHAiNT MESSAGE ERROR 


(1) 




000744 


MICPC«M1CPC+1 


CI) 


314232 


000410 


<MOVE!WRTEBRHMMi<10» 


1212 


114234 




ALWAYS RCEXY ;GIVE FATAL ERROR 


(1) 




C00745 


MICPC«MICPC+1 


CI) 


U14234 


114525 


<JUMP> ALCONDJ<RCEXY-INITt3000*4>i<RCEXY-INIT6,777/2» 



DMC1 1 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APR-77 10:08 



MACY11 30C104b) ll-JUL-77 12118 PAGE 6-47 
EM2--PR0CESS RLU MESSAGE 



PAGE: 0106 



1214 








.S6TTL EK2— PkOCESS RLD MESSAGE 


1715 








; ENTERED FROM IDLE LOOP 


1216 
1217 








;IF RLD PASSWORD CHECKS TRIGGER THE BOOT ROM 


1218 


tl 423d 




EM2: 


BRWRTE IBUS.RCVDAT J READ THE CHAR 


(1) 




01*37 46 




MICPC«MICPC+1 


(1) 


IU4236 


020600 




<M0VE 1 WRTEBR 1 1 BUS {<RCVDAT>> 


1219 


1)14240 






CMP BR.SP16 ;IS IT A MATCH 


(1) 




030747 




MICPC"MICPC+1 


tl) 


#14240 


i»68376 




<SUBTC!BR!SP16> 


1220 


014242 






Z EM3 


( 1 ) 




000750 




MICPC"MICPC+1 


(1 ) 


614242 


105757 




<JUMPlZCOND!<EM3-INITS3000»4>!<EM3-INIT&777/2» 


1721 








J FALL INTO RHX 


1222 


(314244 




RHXj 


BRWRTE BR.AAISP1 J READ STATUS BYTE SHIFTED LEFT 


(1 ) 




300751 




HICPCMICPC + 1 


f 1) 


114244 


&60521 




<M0VEJWRTEbRlBRKAAJSPl» 


1223 


C14246 






BR4 108 ;DLE RECEIVED IN NORMAL MODE 


(1) 




000752 




HICPC«MICPC+1 


(1) 


£14246 


107154 




<JUMPlBR4CON:<10$-INXTfc3000*4>i<10$-INIT&777/2» 


1224 


014250 






ALTAI'S FLUSH ; ALREADY IN MAINT MODE 


(1 ) 




000753 




MICPC"HICPC+1 


f t ) 


•14250 


104415 




<JUMPiALCONDi<FLUSH-INIT63000*4>i<FLUSH-INITS,777/2» 


1225 


014252 




10$: 


BRWRTE IMM,163 ;MASK TO CLEAR ALL MAINT RELATED BITS 


(I) 




S00754 




MICPOM1CPC+1 


(1) 


014252 


000563 




<M0VEIWRTEBR|IMM'<163» 


122b 


014254 






SP BR, AANDB, SP1 ; CLEAR THEM 


(1) 




000755 




MICPC»MICPC+1 


(1) 


014254 


063261 




<hove:spx:bri AANDBJSP1> 


1227 


914256 






ALWAYS FLUSH 


(1) 




000756 




MICPC«MICPC+1 


CD 


»14256 


104415 




<JUHP1 ALCONDKFLUSH-INITi3000»4>l<FLUSH-INITi777/2» 


1228 










1229 


B14269 




EM3: 


SP BR,DECA,SP4 {DECREMENT CHARACTER COUNT BY ONE 


( 1 > 




»00757 




MICPC«HICPC+1 


(1) 


#14260 


063164 




<H0VE1SPX!BR'DECA!3P4> 


1230 


C14262 






2 EMTRIG {TRIGGER AC LOW 


(1) 




000760 




MICPCaMICPC+1 


CD 


014262 


115720 




<JUMpiECOND!<EMTRIG-INIT63000»4>KEMTRIG-INITtt777/'2» 


1231 


SJ14264 






ALWAYS IDLE 


CD 




000761 




MICPC*MICPCtl 


CD 


01 1264 


100145 




<JUMP!ALCONDt<IDLE-INITt3000*4>!<IDLE-INIT&777/2>> 



DMCll DDCMP PROTOCOL IMPLEMENTATION HACY11 30(1046) U-JllL-77 12118 PAGE 6-4B PAGE! 0107 

DDCNtW , ^ AC 21-APR-77 10:08 tM2 --PROCESS RLD MESSAGE 



1233 
1234 
CD 


914266 


000762 


BOOT: 


1 

BRWRTE BR.SELA1SP1 ; SEE IF IN MAINT. MODE 
MICPC"MICPC+1 


CI ) 


014266 


060601 




<MOVE! WRTEBR 1 BR !<SELA1SP1» 


1215 
( 1 ) 


014273 


308763 




BR7 RA3 ; BRANCH IF SO AND TREAT DLE LIKE NUM. MSG. 
HICPC«MICPCtl 


CD 


014273 


103747 




<JUMPlBR7CON:<RA3-INXT63000*4>KRA3-INITfc777/2» 


1236 
C 1 ) 


014272 


3B0764 




BRWRTE IMM.210 {MASK TO SET MAINT MODE AND DLE RECV'D 
HICPC*MICPC+1 


CD 


k>14272 


0006 Id 




<M0VE! WRTEBR I IMM1<210>> 


1237 
CD 


014274 


000765 




SP BR,A0RB,SP1 (SET THE BITS 
MICPC»HICPC+1 


r 1 1 


i.i *?■»» 






<mov|;! SPX! BP I »OPR ! SP!>- 


1238 
C 1 ) 


014276 


000766 




ALWAYS RA3 ; TREAT LIKE NUMBERED MESSAGE 
MICPC-MICPC+1 


CD 


014276 


100747 




<JUMP! ALCONDl<RA3-I*ITt3000*4>i<RA3-lNIT<,777/2» 


1239 
CD 


014300 


000767 


RESEXT: 


BRWRTE IMM,4 ; ADD TO MXT BITS 
MICPC»MICPC+1 


CD 


414300 


000404 




<M0VEIWRTEBR1IMM|<4» 


124a 

CD 


V14302 


000770 




SP IBUS,NPR,SP0 
MICPC«MICPC+i 


CI ) 


014302 


123200 




<M0VE1 SPX 1 IBUS1 NPR 1 SP0> 


1241 
( 1 ) 


014104 


000771 




OUT BR, ADD i ONPR ;D0 IT 
MICPC»HICPC+1 


CD 


tfl 43114 


i?bl0ia 




<M0VE1WR0UTX1BR!<ADD10NPR» 


1242 
CD 


tfl 4306 


000772 




ALWAYS RESl 
MICPCsMICPC + 1 


CD 


914336 


110753 




<JUMPlALCONDJ<RESl-INIK3000»4>l<PESl-INITt777/2» 


1243 
CD 


•114 319 


P00773 


tabmxt: 


BRWRTE IMM,4 f INCREMENT MXT 
MICPC«HICPC+1 


CD 


#14310 


000404 




<M0VE1 WPTEBRi IMMJ<4» 


1744 

CD 


014312 


008774 




SP 1BUS.UBBR.SP0 ; READ BR CONTROL 
MICPC«MICPC+1 


C 1 ) 


014312 


123220 




<MOVE1SPX!IBUS1UBBRISP0> 


1245 
CD 


314314 


000775 




OUT BR, ADD10BP 
MICPC"MICPC+1 


CD 


U4314 


l»b 1 i) 1 1 




<M0VElWROUTXIBRi<ADDJOBR» 


1246 
CD 


014316 


000776 




ALWAYS ECX 
MICPC»MICPC+1 


r l ) 


H14316 


1 14767 




<JUMPlALCONDl<ECX-INIT63000*4>KECX-lNITt777/2» 


1247 
CD 


01 4320 


0007 77 




SZERO" 

MICPC*MICPC+1 


C 1 ) 


U432J1 


000*03 




000000 



DMCU DOCHP PROTOCOL IMPLEMENT AT ION 
DDCNEW.MAC 21-APR-77 18:08 



MACY11 30C1046J ll-JUL-77 12:18 PAGE 6-49 

EM2 — PROCESS RL" MESSAGE 



PAGEt 0106 



1249 




011322 


.xINIT+2000 




1250 




000777 


HICPC«777 




1251 






.SBTTL TMTDA--TRANSMITTER DISPATCH 


ROUTINE 


1252 










1253 


9! 4322 




TKICAS BRWRTE IBuSiTMTCOn 


; READ TRANMITTER CONTROL 


(1) 




30 1000 


HICPC«MICPC+1 




(1) 


014322 


320620 


<MOVElWRTEBR!lBUS!<THTCON» 




1254 


'J14324 




,BR4 DP,SELAp<2iPAGE2> 


;IF READY PROCEED 


(1) 




i>01001 


HICPC«HICPC+i 




C 1) 


£14324 


173202 


<JUMP1 BR4C0N!DP1SELAI21PAGE2> 




1255 


1914326 




ALWAYS 11 


; ELSE IDLE 


(1) 




001002 


HICPCsMICPC+1 




CI) 


S14326 


190452 


<Ju*iPift*iCOHDi<ii»ISIf6300B*4>i<Ii"I 


MTi777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30C1046) U-JUL-77 12118 PAGE 6-50 PAGE: 0109 

DDCNEW.MAC 21-APR-77 10:08 TMTA--FIRST CHARACTER OF HEADER ' 



1257 
1253 








, SBTTL TMTA— FIRST CHARACTER OF HEADER 


125 4 


814330 




TMTA: 


» 

BRHRTE BR,AA!SP10 f SHIFT LEFT 


cd 




;»01003 




«ICPC»«ICPC+1 


(1) 


151433J 


£60530 




<M0VE! WRTEBRI BR !<AAISP10» 


1260 


C 14332 






BR7 RCVCK 


(1) 




t'01804 




MICPCsMICPC+l 


(1) 


014332 


107614 




<JUMP!BR7CONJ<RCVCK-IltITS3000*4>!<RCVCK-INITfc777/2» 


1261 


014334 




tsi: 


BPWRTE BR,SELA'SP10 ; REREAD STATUS 


(1) 




001005 




MICPC"MICPC+1 


(1 ) 


014334 


060610 




<M0 VE! NRTEBR 1 BR i <SELA 1 SP10» 


126 2 


1*14336 






BR0 NUMSYN fXF UNNUMBPENDING — SEND 


(1) 




1)01006 




HICPC=MICPC+1 


(1) 


014336 


112031 




<JUMP!BR0CONJ<NUMSYN-INITt3000»4>l<NUMSYN-INlTi777/2» 


12o3 


014344 






BPSHFT 


(1 ) 




3011507 




MICPC«MICPC+1 


(1) 


C14340 


(901624 




<M0VEiSHFTBR! WRTEBRI SELB> 


1261 


1*14342 






BR4 11 ;IF START MODE--EXIT 


(1) 




[$01010 




MICPC»HICPC*1 


(1) 


"1 4342 


103052 




<JUMPlBR4CONl<Il-INITS3000»4>KH-INITi777/2» 


1265 


£14 34 4 






BR1 NUMSYN ;IF LINE HAS GONE IDLE SEND SYN 


(!) 




9«!011 




MICPC«MICPC*1 


(1) 


914344 


112431 




<JUMP!BPlCONi<NOMSY*-INirt3000*4>l<NUMSYN-INlTi777/2» 


1266 








; ELSE— START TO SEND MESSAGE 


1267 


014346 




TMTEXT: 


TSTATE TMTB 


(1) 




'101012 




MICPC«NICPC+i 


(1) 


014346 


0K0453 




<M0VElWPTEBRlIMMl<TMTB»IIIIHi777/2» 


(1) 




001013 




HICPC=MICPC+1 


(1) 


IP14350 


063222 




<M0VE!SPX!BR1SELB1SP2> 


l?fcf> 


314352 






BRHRTE BR, SELA1 SP1 ; ARE WE IN BOOT MODE 


(1 ) 




301014 




MICPC«MICPC+1 


CD 


U14352 


»60b01 




<MOVEI WPTEBPIBR!<SELA!SP1» 


1269 


t'14354 






BR7 TMTBT ;IF SO SEND OLE 


CI) 




;;<>i«iis 




HICPC«M1CPC+1 


CD 


fel4354 


1 1 3427 




<JUMP'BP7CONl<TMTBT-INITi3000«4>l<TMTBT-INIT4777/2» 


127/ 


(•14356 






BRWRTE BR,<SELAJSP10> jUNNUMB MESSGE? 


CD 




SJIr'16 




MICPCxMlCPC+1 




f i4356 






<M0VE1 WRTEBRI BR! <SELA > SP10» 


1771 


i?1436? 






BR0 TMTON ,IF SO —BRANCH 


(1) 




001017 




MICPC=HICPC+1 


CD 


! 14 36^1 


1121*23 




<JUMPIBR0CONi<TMTUN-INITi3000*4>i<TMTUN-lNI14777/2» 


1772 


(-14362 






BRWPTt IHM,201 fELSE STORE SOH 


CD 




301021 




MICPC«M1CPC+1 


(1) 


1914362 


1500001 




<MOVEI WRTEBRI IMMl<201» 


1273 


: 14361 




1MTA5: 


OUTPUT BR, <SELB ! THTDAT> ;1N TMT SILO 


( 1 ) 




[101 ii21 




M1CPC«MICPC+1 


CD 


P14361 


;.6?230 




<MOVE ! WROUT ! BR 1 <SELB1 TMTDAT» 


1274 


U14366 






ALWAYS 11 


CD 




001022 




MICPC»MICPC+1 


C 1 ) 


014366 


100452 




<JUMP!ALCOHOl<ll-INITS3000*4>!<H-INITli77 7/2» 


1275 


11437' 




imtun: 


TSTATE TMTI 


CD 




i!»1023 




MICPC*MICPC+1 


CD 


B1437M 






<MOVE! WRTEBRI IMMKTMTI -IN IT4.77 7 /2» 


CD 




001021 




MICPC=M1CPC+1 


CD 


014372 


063222 




< 40VE!SPX!BR!StLB!SP2> 


nib 


(-1 43 74 






BR»PTt 1MM.5 jfcNu TO faR 



DMCll DDCHP PROTOCOL IMPLEMENTATION 
DDCNtW.MAC 21-APF-77 lt'!08 



MACY11 30(1046) ll-JUL-77 12118 PAGE 6-51 
TMTA--FIHST CHARACTER OF HEADER 



PAGE I 



0110 









t itf 1 1£) 2 5 




MlCPC«MiCPC+l 




Ml 


... 






<MOVEl WRTEBRt IMMl<5» 




2 77 


i»l 4376 
* 






ALWAYS TMTA5 




(1) 




301026 




MICPC«MICPC+1 




CI) 


914376 


110421 




<JUHPiALCONDi<THTA5-INITfc3000»4>i<THTA5-INITfc777/2» 




278 


01 440v) 




THTBT : 


BRWRTE IMM,220 ; WRITE A DLE TO BR 




CI) 




C-0 1 (527 




HICPC»MICP01 




CI) 


01 4400 


000620 




<MOVE! WFTEBR1 IMHJ<220>> 


1 


279 


tS 14 402 






ALWAYS TMTA5 ; SEND IT 




CI) 




801030 




MICPC«MICPC+1 


1 


CI) 

28** 


014402 


1 10421 




<JUMP| ALCONDJ<TMTA5-INITfc3000«4>!<TMTA5-INITfc777/2» 


t 


281 


#1 4404 




J 

NUMSYNI 


BRWRTE 6R,<SELAJSP10> (READ LINE STATUS WORD 




CI) 




3 SI If 31 




MICPC"HICPC+1 




CI) 


01 4494 


0606 1 




<MOVE ! WRTEBR J BR! <SELA t SP10>> 


1 


28 2 


£ 1 4406 






BR7 SJ j IF OK TO SEND--PROCEED 




CI) 




001032 




HICPC»MICPC+1 




CI) 




1 1 3434 




<JUMP' BP7CON1<5$»INIT&3000»4> !<5S-INIT&777/2>> 


t 


28 3 


V 1 4 4 10 






ALWAYS 11 (ELSE--IDLE 




r ! l 




0iPl03 3 




MICPC^MICPCtl 






t< lit t 


100452 




<JUMP1 ALC0N0K1 1 "INITS3000»4> KI 1 "INITS77 7 /2>> 




28* 


1414412 




5S I 


BRWRTE IBUS C MODEM ;ARE WE STILL SENDING? 




CI) 




001034 




HICPC»MICPC+1 




CI) 


014412 


020660 




<MOVE| WFTEBRl IBUS1<H0DEM>> 


1 


285 


01 441 4 






BR5HFT 




CI) 




001035 




HICPC=M1CPC+1 




CI) 


01441 4 


001620 




<MOVE 1 SHF TBR I WRTCBR 1 3ELB> 


1 


286 


014416 






BR4 11 ;RTS SETT IF SO WE ARE--STALL 




CI) 




001036 




MICPC"HICPC+1 




CI) 


014416 


1 030S2 




<JUMp; BR4C0N J<Il»INITfc3000*4>!<Il-INIT&777/2» 


1 


28 7 


014420 






BRWRTE IHN,373 ;HASK TO TURN OFFLINE IDLE 




[ 1 ) 




001037 




MICPC«HICPC+1 




CD 


&14420 


80077 3 




<M0VESWRTEBR!IHM1<373» 


1 


288 


E l 4422 






SP BR, AANDB, SP10 ; IN LINE STATUS WORD 




( 1) 




001040 




MICPC»WICPC+1 




CI) 


014 422 


063270 




<H0 VE 1 SPX t BR1 AANDB J5P10> 


1 


289 


•14424 






TSTATE THTA1 




CI ) 




001041 




HICPC"HICPC+1 




CI) 


fc 1 4 4 2 4 


0004 45 




<MOVE! WPTEBRJ IMM[<TMTAl-IHITi777/2>> 




CI) 




001042 




MICPC*M1CPC+1 




(1) 


01 4 426 


('63222 




<M0VEiSPX!BRJStLBlSP2> 


1294 


1 4 4 3 






BRWRTE IMH,10 




CI) 




&01043 




MICPC»MICPC+1 




CI ) 


f 1 4 4 3 


PCK410 




<M0VE1 WFTEBRl IM1K J 0>> 


1 


296 


4>1 4 432 






SP BR,SELB,SP6 (STORE IN SP6 




CI) 




00 1044 




MICPC»HICPC+1 




Ct) 


014432 


1)63226 




<M0 VE J SPX t BR t SELB 1 SP6> 


1 


297 


014434 




TMTAl i 


SP BR,DECA,SP6 (DECREMENT SYN COUNT 




C 1 > 




001045 










:<14434 


063166 




<M0VE!SPXiBFlDECAJSP6> 


1 


29d 


011436 






Z THTEXT 




C 1 ) 




001046 




HICPC«M1CPC+1 




CI) 


1*14436 


111412 




<JUHP!ECONDl<TMTEXT-INIH3000*4>i<TMTEXT-INITi777/2» 


1 


299 


314440 






BRWRTE IHM,1 (MASK FOR SOM 




CI) 




001047 




HICPC«MICPC+1 




C 1 ) 


P14440 


000401 




<MOVE J WFTEBRl IMM1<1» 



DMCll DOCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APR-77 10J08 



MACY11 30C1046) ll-JUL-77 12116 
T"TA— FIRST CHARACTER OF HEADER 



PAGE: 0111 



1300 


J14442 




OUTPUT BR f SELB10TNTC0 


(WRITE IT TO 


Ct) 




301050 


MICPC»MICPC+1 


CI) 


t 14442 


£62231 


<MOVEI WROUT 1 BR! <8EI>BtOIMTC0» 




1301 


014444 




BRWRTE IMM.226 


(SYNC CHAR 


CI) 




001051 


MICPC«M1CPC+1 


C 1 ) 


114441 


300626 


<M0VE1 WRTEBR1 IMM|<226» 




13k'2 


014446 




ALWAYS TMTA5 




CI) 




001052 


MICPCBHICPC+1 




11 ) 


014446 


1 10421 


<JUMPlALCONDKTMTA5-INITfc3i00»4>!<TMTA5 


-INITS777/2» 



DHC11 DDCHP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-AFR-77 10:08 



HACY11 3MC1046) 11-JUL-77 12:18 PAGE b-53 
THTB— OUTPUT FIRST CHAR OF COUNT 



PAGEl 0U2 



1304 .SBTTL TMTB— OUTPUT FIRST CHAR OF COUNT 

131*5 ( 

1306 t)1445» TMTB: SPbR IBUSrNPR.SP0 ; READ BR CONTROL REG 



( 1 ) 




001053 


micpc*hicpc+i 


- 


( 1 ) 


014450 


123b00 


<MQVEISPBRX! IBUSSNPRlSP0> 




1307 


014152 




BR0 IDLE (NPR 


GOING--GET OUT 


( 1 ) 




001054 


HICPCoHlCPC-H 






8144&2 


1 £21345 


<JUKP!BR0CONl<IDLE-INITi3B80e4>i<IDLE 


=INITi777/2» 


uae 


iM4451 




LDMA IMM, LTC 


jGETPOINTER TO NEXT TMT LINK 


( l ) 




001W55 


MICPC*MICPC+1 




( l ) 


314154 


(510071 


<M0VEILDMAR!IMM!<LTCS377» 




I3v9 


1)14456 




LDHA HEMX,SELB1SPXISP16 


j POINT TO THE LINK 


( 1 i 




901056 


HICPC*MICPC+1 




C 1 ) 


*1 4456 


053236 


<M0VEILDMAR:HEHXJ<SELB13PXJSP16» 




I3ia 


k»14460 




KEMINC IMH,3 


(WRITE MSG TMTED TO FLAGS 


( 1 ) 




001057 


HICPC=MICPC+1 




( 1 ) 


IH446" 


016403 


<H0VE1 WRMEM! INCMAR1 INM1<3» 




1311 


014462 




MEMINC DP,SELA!SP12 


;PICK UP HSGNO 






P31063 


HICPC*M1CPC+1 




( 1 ) 


014462 


I57b612 


<HOVE ! WRMEH ! INCHAR J DPKSELA ! SP1 2>> 




1312 


014464 




STATE THTC 


(ADDRESS THTR STATE 


( 1 ) 




001061 


MICPC=MICPC+1 




( 1 ) 


£14464 


£00500 


<HOVE! WRTEBR1 IMM!<TMTC-INITt777/2» 




1313 


014466 




TB0; SP BR,SELB,SP2 


( UPDATE It 


CD 




301062 


MICPC«HICPC+1 




( j ) 


«*144b6 


063222 


<H0 VE J SPX t BR 1 SELB t SP2> 




1314 


014473 




OUTPUT <MLHXlINCHAR>»SEIiBlIBAl 


> WRITELOWBYTEOFADDRESS 


CI) 




£101063 


MICPC=M1CPC+1 




CD 


014473 


056224 


<MOVEJWP.OUT!ME«X!IHCMARi<SELBlIBAl» 




1315 


P14472 




OUTPUT <MEHXJ INCHAR>f SELB J IBA2 


J WRITE HIGH BYTE OF ADDRESS 


' < ) 




<t0i£e4 


MICPC«MIPPC*1 




CD 


C14472 


056225 


<HOVEi WBOUT! MEMX 1 INCMARl <SELB J IBA2>> 




1316 


-314474 




SP MEHX,SELB,SP7 ;HIGH BYTE OF 


COUNT TO SP7 






001065 


MICPC*MICPC+1 




C 1 ) 


014474 


343227 


<MOVEl SPX! MEMX1 SELB !SP7> 




1317 






}WAIT TO MASK 


OFF HEM EXT. BITS 


1313 


014476 




SP 1MM,300,SP0 


(MASK FOR MXT 






001066 


HICPC*MICPC+1 




CD 


314476 


003300 


<MOVE1SPX!IMH{3001SP0> 




1319 


B145C" 




BRWRTE MEMX! INCMAR# AANDB J SP0 


1 TURN OFF CC2 






001067 


hICPC*MICPC+l 




CD 


£•14500 


054660 


<H0VE1 NRTEBR' MEMXt INCMAR] < AANDB 1 SP0» 




1320 


014502 




BRSHFT 


(SHIFT BITS INTO CORRECT POS] 






001070 


HICPC«H1CPC+1 




014502 


001620 


<MOVE i SHFTBR 1 HRTEBRi SELB> 




1321 


014504 




BRSHFT 








001071 


MICPC«HICPC+1 






014504 


301620 


<MOVEISMFTBRt HRTEBRI SELB> 




132 2 


•14506 




BRSHFT 








1*01072 


MICPC«HICPC+1 






014506 


001620 


<HOVE! SHFTBR! WRTEBRl SELB> 






is!45S«3 




5PSHFT 








001073 


MICPCMCPC + 1 






314510 


001624 


<N0 VE 1 SHFTBR! WRTEBRl SEItB> 




1321 


014512 




OUT BR f SELB 1 ONpR 




C 1 ) 




001074 


MICPC«HICPC+1 





DHCU DDCHP PROTOCOL IMPLEMENTATION 



MACY11 30(1046) il-JUL-77 



DDCNEW.MAC 


21-APR-77 10:08 


TMTB--OUTPUT FIRST CHAR OF COUNT 




CI) 


014512 


061230 


<H0VE1WR0UTX1BR!<SELB10NPR» 




1 325 


014514 




SPBR MEMXi INCMAR r SELBr SP6 


( LOWBYTE OF COUNT 


CD 




"01075 


HICPC«HICPC+1 




tl) 


01451 4 


l>57626 


<MOVE i SPBRX ! HEMX! INCMARI SELB! SP6> 




1326 


014516 




OUTPUf BR> SELB ! TNTDAT 


(WRITE IT TO THTR 








MICPC=KICPC*1 


CD 


014516 


362230 


<M0 VE I WROUT ! BR 1 <SELB ! THTD AT» 




1327 


014520 




ALWAYS IDLE 




CD 




001B77 


MICPC«HICPC+1 




CD 


011520 


100445 


< JUMP! ALCOND ! <IDLE-INITS3000*4> ! < IDLE- 


INIT&777/2» 


1328 






l 





PAGEl 0113 



DMC11 DDCMF PROTOCOL IMPLEMENTATION 
DDCNEH.MAC 21-APM-77 10S0B 



MACY11 30(1046) H-JUL-77 12:18 PAGE 6-55 
TMTC--OUTPUT SECOND CHAR OF COUNT 



PAGE* 0114 



3<) 
31 




.SBTTL TMTC— OUTPUT SECOND CHAR OF 
- 


COUNT 


32 1514522 




TMTC! BRWRTE IMH f 77 


(MASK TO CLEAR MXT BITS 


1 ) 


901 100 


MICPC«MICPC+1 




1) 014522 


000477 


<M0VE1WR1EBR!IMMJ<77» 




33 014524 




SPfaR BR,AANDB,SP7 


(CLEAR THEM 


, ) 


i>01 101 


HICPC»MICPC+1 




1) P14524 


963667 


<M0VE1SPBRX|BR|AANDBISP7> 




31 014526 




OUTPUT DP, <SELB J TMTDAT> 


(WRITE TO TMT SILO 


; } 


(Ml 102 


HICPC«M1CPC+1 




1) £14526 


062230 


<NOVEiWROUTiDPl<SELBlTMTDAT» 




35 1.14530 




LDMA " IMM,LTC 


jPOINT TO TUT BUFFER 


I ) 


401103 


HICPC=MICPC+1 




1) » 145 30 


010071 


<M0VESIDMARIIMMI<LTCS377» 




36 *14532 




BRWRTE IMM,6 


(OFFSET TO NEXT LINK 


1 ) 


001104 


MICPC»MICPC+1 


1) 314532 


000106 


<M0VElhRTEBRlIMMl<6» 




37 .114534 




HEM BP,ADDiSP16 


• UPDATE THE POINTER 


1 ) 


001135 


HICPC«KICPC+1 




1) 014534 


H62416 


<MOVE i MRHEM • BR 1 <AOD I SP16» 




39 IU4536 




BRWRTE IHH.THL8 


J GET WRAPAROUND 


1 ) 


001106 


MICPC»HICPC+1 




1 ) 1*14536 


000515 


<MOVEl WRTEbRl IMM i<TML8» 




39 314543 




CMP BR.SP16 


; HRAPAORUND 


1 ) 


Ml 107 


micpc«bicpc+i 


1) 014543 


360376 


<SU8TC!BR!SP16> 




4tf U14542 




Z 10« 




1 ) 


£01110 


MICPC»HICPC+1 




1) 014542 


111513 


<JUMP!ZCOND!<10$-INITS3000»4>1<10$- 


INITt,777/2» 


41 014544 




5$: STATE IK TO 




| ) 


»f»ltll 


MICPC»MICPC+1 




1) £14544 


E00515 


<HOVE!WPTEBRJIMMJ<T«TD-INITS777/2» 




12 Hi 1546 




ALWAYS XEXIT 




t) 


001112 


HICPC«MJCPC+1 




1) 014546 


100451 


<JUMPlALCONDJ<XEXlT-INITi3fl00»4>J<XEXIT-INITt777/2» 


13 trl4553 




10S: HEM IMM,TMLl 


;GO BACK TO FIRST LINK 




00 1 1 1 3 


MICPC«MICPC+1 




) ,514553 


002473 


<hoveikrhemiihm:<tmli» 




14 114552 




ALWAYS 59 






001114 


MICPC»HICPC+1 




) .714552 


110511 


<JUMPlALCONDK5S-IHITS3000»4>K5S-INIT4777/2>> 



5 ; 



DMCll DDCMP PROTOCOL IMPLEMENTATION MAC Yl 1 30C1046) U-JUL-77 12J18 PAGE 6-56 PAGE: 0115 

DDCNtrf.wAC 21-APR-77 10108 TMTD— RESPONSE FIELD-NUMBERED MESSAGE 



1347 








.SBTTL TMTD— RESPONSE FIELD-NUMBERED MESSAGE 


1348 


H14554 




TMTD 1 


STATE TMTE 


( 1 ) 




001115 




MICPC*MICPC+l 


(I) 


£14554 


000523 




<M0VElWRTEBRlIMM!<TMTE-IIIITS777/2» 


1 349 


014556 






SP BR,DECA,SP6 j ADJUSRT COUNT FOR TWO'S COMPLEMENT 


(1) 




001116 




MICPC«MICPC+1 


( 1 ) 


114556 


E63166 




<M0VE'SPX!BR1DECA1SP6> 


1350 


41456.1 






C TO 2 ;N0 OVERFLOW 


( 1 ) 




001117 




HICPC»H1CPC+1 


(1) 


014560 


111121 




<JUMPICCONDKTD2-INIK3000*4>i<TD2-INITfc777/2» 


1351 


014562 






SP BR,DECA,SP7 ; DECREMENT HIGH BYTt OF COUNT 


(1) 




0U1120 




MICPC«MICPC+1 


( 1 ) 


014562 


B.63167 




<M0VElSPXiBRlDECAtSP7> 




" I * 5 6 » 














(1 ) 




001121 




MICPCBMICPC+1 


(1) 


014564 


SM0W1 




<MOVEILDMAR}IWM!<ISPlli377» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30C1046) ll-JUL-77 12:18 PAGE 11 PAGE I 0116 

DDCNLtl.KAC 21-APR-77 10108 TMTD— RESPONSE FIELD-NUMBERED MESSAGE 

1363 014566 ALWAYS TJ1 

CI) BB1122 MICPC=MICPC+1 

(1) 014566 112606 <JUMP!AtCONDi<TJl-INITfc3000*4>!<TJl-INITj,777/2» 



DMC11 DDCHP PROTOCOL IMPLEMENTATION 
DDCNl W.MAC 21-APR-77 10:08 



MACY11 30(1046) ll-JUL-77 12U8 PAGE 12 
THTE--NUHBER FIELD— NUMBERED MESSAGE 



PAGE: 0117 



1367 






.EBTTL TMTE— NUMBER FIELD— NUMBERED MESSAGE 


1 368 


014573 




TMTE: 


1 369 


P14570 




SPBR IBUS#NPR,SP0 ; READ NPR CONTROL 


CI) 




001123 


MICPC*MICPC+1 v 


CI) 


014570 


123600 


<MOVElSPBRXiIBUSlNPRlSM> 


1370 


01 4572 




BR0 " Ti ;EUS5r = GET OUT 


CI ) 




001124 


MICPOMICPC+1 


(1) 


f314572 


102052 


<JUHP!BR0CONt<ll-INITS3000*4>l<Il-INITS777/2» 


1371 


CI4574 




BRWRTfe BR,SELAJSP12 


(1 ) 




001125 


MICPC=MICPC+1 


CD 


014571 


060612 


<M0VE!WRTEBR!BR!<SELA1SP12» 


1 372 


W14576 




OUTPUT BR,<SELB1TMTDAT> j WRITE IT 


CI) 




J01126 


MICPC»MICPC+1 


(1) 


li.14576 


062230 


<MO VEi WROUT ! BR 1 <SELB 1 TMTDAT>> 


1373 


014604 




STATE TMTF 


(1) 




001127 


MICPC*HICPC+1 


CI) 


»146ti0 


000531 


<HOVES WRTEBR1 IMMKIMTF— IHITfc777/2>> 


1374 


014602 




ALWAYS TH3 


( 1 ) 




b*1130 


MICPC=MICPC+1 


(1) 


£14602 


1 10573 


<JUMPiALCOND!<TH3-INIT&3000*4>KTH3-INIT&777/2» 



DMCll DDCMP PROTOCOL IMPLEMENTATION MAC Y J I 30(1046) ll-JUL-77 12! 18 PAGE 12-1 PAGE; 0118 





, MAC 2 1 


-ApR-7 7 1 ; <*8 


TMTF- 


-NUMBERED MSG ADDRESS FIELD 


1 376 








.SBTTL TMTF— NUMBERED MSG ADDRESS FIELD 


1377 








; 


1 378 


01 46*14 




TMTF I 


STATE TF1 


( 1 ) 




001 1 31 




MICPC»M1CPC+1 


( 1 ) 


VI 460 1 


00053S 




<HOVEl WPTEBR1 IMNl<TFl-INIT4777/2>> 


1379 


til 4606 




TF2 i 


SP BR,SELB,SP2 


( 1 ) 




E>01 1 32 




MICPC*MICPC+1 


( 1 > 


t>l 4646 


B63222 




<H0VE1 SPX I BR I SELB !SP2> 




01 46 1 3 






BRWRTE IMMf 1 "LOAD ADDRESS 


(1) 




(701133 




MICPC"MlCPCtl 


(1) 


014610 


000401 




<HOVE! WRTEBR1IMH!<1» 


1386 


014612 






ALWAYS TMTA5 


(1) 




001134 




HICPC«MICPC+1 


(1) 


014612 


110421 




<JUMPlftLCONDJ<TMTA5-IHITt3B00»4>l<TMTA5-INITfc777/2» 



DMCH DDCMP PROTOCOL IMPLEMENTATION MACY1 1 30(1046) ll-JUL-77 12J18 PAGE 12-2 PAGE; 0119 



DDCNEW.MAC 21 


-APP-77 10S0B 


TFl -NUMBERED MSG HEADER EOM 




1 389 






.SBTTL TFl -NUMBERED MSG HEADER EOM 




1 390 


tH 4614 




TFl: BRWRTfc IMM,2 


J EOM MASK TO BR 


(I) 




l!0H35 


MICPC=MICPCtl 




C 1 ) 


<?14614 


900402 


<M0VE!NRTEBR1IMM1<2» 




1391 


014616 




OUTPUT BR,<SELBiOTMTCO> 


} UPDATE TMTR CONTROL REGISTER 


(1) 




001136 


HICPC*MICPC+1 




(1 ) 


014610 


S62231 


<MOVL 1 NROUT t BRKSELBJ 0TMTCO» 




1392 


014620 




OUTPUT BR,<SELB1TMTDAT> 


} OUTPUT A GARBAGE CHAR 


( 1 ) 




i.101137 


MICPC«HICPC+l 




(1) 


91462* 


062230 


<M0 VE 1 HROUT 1 BRKSELBJ TMTOAT» 




1393 


3 14622 




BRWRTE IBUS,IIBA1 


[ READ LOW ORDER FROM INBA 


(1 ) 




001143 


MICPC"MICPC+1 




C 1 ) 


€14622 


020300 


<M0VEIWRTEBP1 1BUSKIIBA1» 




1394 


014624 




BR0 TMTF1 


(IF ODD BYTE— BRANCH 


(1) 




901141 


MICPC«MICPC+1 




(1) 


01 4624 


1 12155 


<JUMP!BR0CONl<TMTFl-INITt308fl#4>!<TMTFl 


-INIT&777/2» 


1395 


U 4626 




STATE TMTH 




(1) 




001142 


HICPC'MICPC+1 




(1) 


#14626 


0005 44 


<MOVElHRTEBRlTMM|<TMTH-INIT&777/2» 




1396 


f 14630 




ALWAYS XEXIT 




(1) 




1)01 143 


HICPC»MICPC+1 




( 1 ) 


014630 


100451 


<JUMPJALCONDJ<XEXIT-INITfc3000»4>l<XEXIT 


-INITi777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 

DDCNE.W.MAC 21-APp-?? taxas 



MACY11 30(1046) ll-JUL-77 12:18 PAGE 12-3 

TFl -NUMSfc-RED MSG HEADER EOM 



PAGEl 0120 



1398 






;**»*»##»#»**TIHE CRITICAL PATH— MODIFY WITH GREAT CARE 




1399 








.SBTTL TMTH— ROUTINE TO OUTPUT DATA CHARACTERS 




14dH 
1 4H1 


014632 




TMTHS 


J 

SP8R IBUS, NPR, SP0 J READ NPR CONTROL 




( i ) 




SPi 144 




KICPC=KICPCTi 




(1) 


»J14632 


123630 




<HOVE1SPBRX!IBUSINPR1SP0> 




1405 


014634 






BR0 11 ;IF NPR IN PROGRESS —BRANCH 


(!) 




09! ! 45 




MICPC»M1CPC+1 




CD 


014634 


102O52 




<JUMP<BR0CONi<ll-INITS3000«4>i<Il-INITk777/2>> 




1406 


C14636 




5$: 


OUTPUT IBUS,<INDAt11THTDAT> ( WRITE THE EVEN CHAR TO 


TMT SILO 


C I ) 




CP1146 




MICPCMICPC + 1 




( 1 ) 


8146 36 


P22010 




<MOVE! WROUT J IBUSKINDAT1 J THTDAT» 




14 07 


5,14640 






SP IBUS, UBA1,SP0 (HEAD LOSS BYTE OF BA TO 


SP 


(1) 




001 147 




MICPC«HICPC+1 




( 1 ) 


91 4b40 


023503 




<MOVE! SPX ! IBUS J IIBA1 1 SP0> 




1408 


(•14642 






OUTPUT BR,<INCA1IBA1> f OUTPUT INCREMENTED BA 




( 1 ) 




001150 




MICPCaHICPC+i 




( 1 ) 


„14642 


062064 




<M0VE1WR0UT1BR<<INCA1IBA1» 




14,49 


«»1464t 






SP BR,DECA,SP6 ; DECREMENT CHARACTER COUNT 


( 1 ) 




001151 




MICPC«M1CPC+1 




(1) 


£14641 


t>6316b 




<M0VESSPXIBRIDECA1SP6> 




1410 


.414646 






C TH6 ;N0 OVERFLOW 




( 1 ) 




001152 




MICPC*M1CPC+1 




(1) 


(714646 


111155 




<JUMP:CCONDl<TH6-INITt.3000*4>!<TH6-IMT&777/2>> 




1411 


314650 






SP BR,DECA,SP7 ; DECREMENT HIGH BITE OF 


COUNT 


CI) 




001153 




MICPC=MICPC+1 




CI) 


W14650 


bb3167 




<M0VE!SPX1BR1DECA1SP7> 




1412 


£14652 






Z HEH1 j BYTE COUNT ZERO 




CI) 




001154 




MICPC«M1CPC+1 




CD 


014652 


115402 




<JUMP!ZCONDi<HEHl-INITt.3000»4>l<HEHl-INITS777/2» 




141 3 


ff 14b54 




TH61 






1418 


014651 




TMTFl: 


STATE TMTHO 




CI) 




001155 




MICPC«M1CPC+1 




C 1 ) 


214654 


000557 




<M0VE!WRTEBRIIMMI<TMTH0-INITi777/2» 




1419 


£14656 






ALWAYS XEXIT 




CI) 




301156 




HICPC»MICPC+1 




Cl) 


014656 


100451 




<JUMP!ALCONDl<XEXIT-INIT63000*4>!<XEXIT-INIT&777/2» 




1 470 


SJ14660 




TMTHO: 






1422 


014663 






SPBR IBUS, NPR, SP0 ;NPR BUSY 




Cl) 




001 157 




MICPC»MICPC+1 




Cl) 


91466!) 


123600 




<MOVEISPBRXJIBUSINPRISP0> 




1423 


014662 






BP0 11 




Cl) 




001160 




MICPC«M1CPC+1 




(1 ) 


K14662 


102052 




<JUMPJBR0CONJ<H-INlTfc3000«4>l<Il-INITSi777/2» 




1425 


014664 




TH9| 


OUTPUT IBUS,<INDAT2JTMIDAT> (ODU CHAR TO SILO 




Cl) 




T01161 




HICPC«MICPC+1 




CD 


014664 


i>22030 




<MOVE! WROUT! IBUS 1< I NDAT2! TMTDAT>> 




1426 


01 4666 






SP IBUS,IIBA1,SP0 J READ LOW BYTE TO BA 




CD 




Q01162 




MICPC««ICPC+1 




Cl) 


014666 


.323100 




<MOVE!SPX1IBUS1IIBA113P0> 




1427 


•14670 






OUTPUT BR,<INCAHBAl> > OUTPUT THE INCREMENTED 


BA 


C 1 ) 




001163 




MICPC«M1CPC*1 




CD 


01467? 


062064 




<MOVE!WROUT!BPJ<INCAUBAl» * 




1428 


014672 






C HOINCH 




(1) 




e01161 




MICPC«H1CPC+1 




CD 


014672 


111372 




<JUMPlCCOND!<HOINCH'INIT&3000«4>!<HOINCH-INIT&777/2» 





DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APP-77 10J08 



MACY11 30(1046) ll-JUL-77 12:18 PAGE 12-4 
TMTH- -ROUTINE TO OUTPUT DATA CHARACTERS 



PAGE I 0121 



SM4674 




TH8 S 


SP BR,DECA,SP6 (DECREMENT CHARACTERCOUNT 




0tM 165 




HICPC«M1CPC+1 


014674 


06316b 




<M0VE!SPXiBR!DECAlSP6> 


014676 






C TH7 jNO OVERFLOW 




001 166 




MICPC«MICPC+1 


<"!4676 


1 1 1 1 ? 1 




<JUMp!CCOND!<TH7-INIT63090«4>!<TH7-INIT6777/2» 


014700 






SP BR,DECA,SP7 {DECREMENT HIGH BYTE OF COUNT 




001167 




MICPC«M1CPC+1 


014700 


yb3167 




<M0VEISPX1BRJDECAISP7> 


£14702 






Z HEH1 ; BYTE COUNT ZERO 




l>31170 




MICPC»MICPC+1 


SJ14702 


1 15402 




<JUHPUCOND!<HEHl-INITfc3000»4>KHEHl-INITfc777/2» 


i>14704 




TH7: 


SPBR ' IBUS, NPR, SP0 ; READ NPR REGISTER 




001171 




MICPC«MICPC+1 


(.14704 


123b00 




<MOVE! SPBRX ! IBUS ! NpR 1 SP0> 


fcl4706 






STATE TMTH 




i.01172 




MICPC*MICPC+l 


'J14706 


000544 




<M0VElWRTEBR!IMMl<TMTH-INITft777/2» 


fcl471») 




TH3l 


SP BR,SEI.B,SP2 (SAVE TSTATE 




SJ01173 




MICPC»MICPC+1 


014710 


063222 




<MOVE!SPX! BR J SELB! SP2> 


'-H4712 




TH3XS 


BRMRTE IHM,157 (CLEAR C0 AND Ci 




001 1 74 




MICPC«MICPC+1 


014712 


fc00557 




<M0VEIWRTEBRJIMM1<157» 


014714 






SP BR, AANDB, SP0 (CLEAR THE BITS 




001175 




HICPC«M1CPC+1 


i»14714 


1..6 3260 




<HOVE 1 SPX1 BR ! AANDB 1 SP0> 


114716 






BRWRTE IMM,1 ( WRITE NPR BITS TO BR 




1-01176 




HICPCsMICPC+1 


U14716 


000401 




<MOVE!WPTEBR!IMMi<l» 


1M 4723 






ALWAYS RK7 




i?01 1 77 




MICPC«MICPC+1 


S)1472v) 


1 J4643 




<JUMPULCONDKRK7-INITfc3000*4>KRK7-INITi777/2» 



»-««»»«#*»»#»»»END TIME CRITICAL PATH#*#»»*«#***»*#**#*»*«##*»»»** 
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TMTI— SEND UNNUMBERED TYPE FIELD 



PACE I 0122 











.SBTTL TMTI--SENO UNNUMBERED TYPE FIELD 




1 455 


^1 4722 




s 


LDMA 1MM,T JADDRESS OF 


TYPE r IELD TO MAR 






001 200 




MICPC"M ICPC+ 1 






B14722 


hl0153 




<H0VE1 LDMARi IMM! <Tfc377>> 




1456 


PI 4724 






SP MEMX,SELB,SP6 jCOPY IT TO 


SP6 


(1) 




001291 




MICPOfUCPC + 1 




(1) 


i«14724 


£43226 




<MOVE 1 SPX ! MEHX 1 SELB 1 SP6> 




1457 


'Ji 4726 






O I n lb 1 ~ iu 




C 1 ) 




1*31 202 








(!) 


8! 4726 


v 00O0 4 




<M0VE1 WR TEBR t IHH1 <TMTuVINITfc77 7 /2^^ 




1 458 


4rl 473*1 






HURHI9 JUJ 




( 1 ) 




n0j 20 3 




H T f* DP it Id T P DP x 4 




( 1 ) 


vH 47 3W 






< JUMPi ALCOND t <TJ1 *INXT&3000*4> 1 <TJl "INITfc777/2^* 




1 46d 








•SBTTL TMTJ"»SEnD 5UB"»TYPE FIELD 




' ( 1 ) 


01 47 32 






LDMA IMMyST jADDRESS OF 


ClIft_TYDlT FTFI.n TO 






($0 1204 








( 1 ) 




010154 




<MOV£i LDMAR J lMMi<ST&377» 




' * * J 








STATE THTK 








C01205 




HICPCsMICPC+l 




( 1 ) 


014734 


9006 1 




<M0VElWPTEBRiIMMi<THTK-INIX4777/2» 




1463 


Ifl4736 




TJ1» 


OUTPUT HEMX, SELB • TMTDAf 




(1) 




001206 




HICPC»HJCPC+1 




(1) 


014736 


942230 




<M0 VE 1 WROUT 2 MEMX I <SELBi TMTDAT» 




1464 


i.14740 






ALWAYS XEXIT 




(1) 




R01207 




HICPC=M3CPC+1 




(1) 


HI 474(9 


100451 




<JUMP!ALCONDl<XEXlT-miTfc3000«4>i<XEXlT-INIT&777/2» 


1465 








; 





DMCll DOCMP PROTOCOL IMPLEMENTATION 
DDCNiW.MAC 21-APP-77 10:08 



1 4t,7 






1 4»B 






1464 


PI 4742 




(1) 




001210 


(1 ) 


314742 


300403 


147^ 


t 14744 




(1) 




001211 


(1) 


014744 


?60346 


1471 


HI 4746 




(1) 




001212 


(1) 


V 1 4746 


300616 


(1) 




aei2i3 


(1) 


014750 


063222 




ri4752 




( 1 ) 




001214 


(1) 


914752 


111223 


1473 


014754 




(1) 




001215 


(1) 


PI4754 


1 10521 


1474 






1475 






1476 


1H4756 




(1) 




901216 


(1) 


(514756 


00*627 


f 1) 




001217 


(1) 


U14760 


1)63222 


1477 


014762 




(1) 




401220 


(1) 


F14762 


400403 


1478 


!»14764 




(1) 




001221 


( 1 ) 


T14764 


062366 


1479 


k>147«6 




(1) 




S, 01 222 


(1) 


fcl476o 


111625 


1480 


•J14770 




(1) 




001223 


(1) 


'.H4 770 


000400 


14fll 


U4772 




(1 ) 




001224 


(1) 


C14772 


110421 


1482 






1 443 


1U4774 




(1) 




001225 


(1) 


<»14774 


lt'60572 


1489 


*1477b 




( 1 ) 




001226 


(1) 


!H 4 7 7(S 


110421 


t 491 







MACY11 30(1046) ll-JUL-77 12118 PAGE 12-6 
TMTK— OUTPUT RESPONSE FIELD (UNNUMB MSG) 

.SBTTL THTK— OUTPUT RESPONSE FIELD (UNNUMB MSG) 



PAGE : 0123 



TMTL0: 



; WRITE A 3 TO BR 



, IF TYPE LESS THAN 3 



BRWRTE IMM, 3 
MICPC«MICPC*1 
<M0VEIWPTEBRJIMMl<3» 
NOP BR,SUB,SP6 
HICPC«M1CPC*1 
<BR1SUB!SP6> 
TSTATE TMTL 
HICPC"MICPC+1 

<M0VElWPTEBRIIMMKTMTL-INI«777/2» 

MICPC"MICPC*1 

<H0VE1SPX!6R!SELBJSP2> 

C TMTL0 

MICPC«HICPC+1 

<JUHPlCCOND!<TMTL0-INITfc3000»4>!<TMTL0-IMIT&777/2» 

ALWAYS TD2 

MICPC"MlCPCtl 

<JUMP!ALCOND!<TD2-INIT43000*4>J<TD2-INITi77 7/2» 

; 

• SBTTL TMTL— UNNUMB MSG NUMBER FIELD 

TSTATE TMTM 

HICPC«MICPC+l 

<MOVGlWRTEBR|IMMJ<TMTM-INITS777/2» 

MICPC"MICPC+1 

<M0VEISPXlBRlSELBiSP2> 

bRNRTE IMM, 3 

HICPC«MICPC+1 

<M0VEIWRTEBRSIMMJ<3» 

CMP BR,SP6 ;IS MESSAGE REP 

MICPC"MICPC+1 

<SUBTC!BR1SP6> 

Z TMTLJ ,YES 

MICPC-MICPC+1 

<JUMpUCONDi<TMTLl-IHITfc3000#4>J<TMTLl-INITfc777/2» 

BRWRTt IMM,0 j ADDRESS CONTNAT OF ZERO 

KICPOMICPC+1 

<MOVES WRTEBR I IM" !<«» 

ALWAYS THTA5 

MICPC«MICPC+1 

< JUMPI ALCOND J <TMTA5-INITt3008*4>i<TMTA5-INITfc77 7/2» 



JWRITE A RESPONSE 



BRNRTE BR,DECA1SP12 
MICPC»MICPC+1 
<M0VElhRTEBP!Bf>i<DECA!SPl2» 
ALWAYS TMTA5 
MICPC«MJCPC+1 

< JUMP J ALCOND KTWTA5-INITfc300a*4>KTHTA5-INIT&777/2» 

; 



DMCH DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APR-77 10:08 



MACY11 3HC1046) ll-JUL-77 12:18 PAGE 12-7 
TMTH--UNNUMB MSG— STATION ADDRESS 



PAGE I 0124 



1 49 J 






1494 


SJ15300 




( 1 ) 




001 227 


( 1 ) 


015000 


06063 1 


1495 


015032 




( 1 ) 




5**31 233 


( 1 ) 


£>15002 


1 1 0532 


14 96 


'Ji 50**4 




CI) 




P01 231 


( 1 ) 


9155504 


030402 


1497 


el5-)06 




( 1 ) 




001 232 


CD 


£ 1 5006 


962231 


1498 


SM 5? 1 3 




CD 




k30 123 3 


CD 


■2> 1 5 <fl 1 «J 


06 22 30 


1499 


315012 




CD 




001 234 


1 1 ) 


£1501? 


090434 


1530 


B15014 




( 1 ) 




031 235 


(1) 


(.15»»14 


663710 


1531 


'j15016 




( 1 ) 




001 236 


(1 ) 


£15016 


060530 


15(<)2 


ei502P 




( 1 ) 




901237 


( 1 ) 


015320 


1 13643 


1 503 


015022 




( 1 J 




001 243 


» 1 . 


£15322 




1 54? * 


B1502 1 




( 1 ) 




fc>01241 




"15024 




15(45 


015t>26 




CI) 




K01242 


CD 


(15026 


110734 


15*16 


«15030 




(1 ) 




001243 


CD 


&15030 


000576 


15d7 


i»15032 




CD 




001244 


(D 


1.15032 


1 10641 



1 0UTPUT A GARBAGE CHARACTER 



J SET UP LINE HAS GONE IDLE MASK 



} UPDATE LINE STATUS WORD 



.SBTTL TMTM— UNNUMB MSG— STATION ADDRESS 
STATE TNEOM 
HICPC«HICPC+1 

<MOVElWRTEBRlIMM!<TNEOH-INIT&777/2» 
ALWAYS TF2 
KICPC«M1CPC+1 

<JUMPI ALCONDJ<TF2-INITt3008*4>i«TF2-INIT&77 ?/2» 
BPWRTE IMM f 2 (END OF MESSAGE 

MICPC«MICPC+1 
<H0VE1 WRTEBR i IMM ! <2» 
OUTPUT BR, <SELBi 0TMTCO> 
MICPC«MICPC+1 

<M0VE ! WROUT ! BR 1 <SELB 1 0TMTC0» 
OUTPUT 6R,<SELBJTMTDAT> 
MICPC=MICPC+1 

<MOVE 1 WROUT i BR I <SELB 1 TMTDAT» 
BRWRTE IMM, 4 
HICPC«M1CPC+1 
<M0VElWRTEBRiIMMl<4» 
SPBR BR,AORB,SP10 
MICPC«MICPC+1 
<MOVEISPBRX!BR|AORBJSP10> 
BRWRTE BP,AA1SP10 
KICPC«MICPC+1 

<HOVE1WRTEBR1BR!<AA1SP10».. 
BP7 10$ 
HICPC«MCPC+1 
<JUMPiBR7CONl<l0«-INIT*3000*4>i<10S-INIT&777/2» 

BRWRTE IMM, 376 jMASK TO TURN OFF UNNUMB PENDDING 

HICPC»MICPC+1 

<SOVEISiRTEBRlIBBJ<37&» 

SP BR, AANDB, SP10 ; MASK TO LINE STATUS WORD 

HICPC»MICPC+1 

<MOVE SSPXt BR 1 AANDB <SP10> 

ALWAYS TE0M2 

MICPC=MICPC+1 

<JOMPiALCOND<<TEOM2-INITb3«00*4>i<TEOM2-INIT&777/2» 

BRWRTE IMM, 176 (CLEAR OK TO SEND AND UNNUMB PENpENDING 

HICPC«MICPC+1 

<N0VE1 WRTEBR !IHMJ<176» 

ALWAYS 5$ 

HICPC»MICPC+1 

<JUMP!ALCOND><5$-INITK3000*4>!<5S-INITfc777/2» 



(SHIFT STATUS LEFT 



;IF HDX SET-— BRANCH TO CLEAR OK TO SEND 



DMC11 DDC^P PROTOCOL IMPLEMENTATION MACYli 30(1046) 11-JUL-77 12:18 PAGE 12-8 PAGE: 0125 

DDCNEW.MAC 21-AFB-77 10:08 TIMSRV—TIBEOUT ROUTINE— SENDS REP 



1509 








.SBTTL TIMSRV— TIHEOOT ROUTINE— SENDS REP 


1510 
1511 








! 

.ENABLE LSB 


1512 


015034 




timsrv: 


SP IBUS,UBBR, SP0 (READ UNIBUS BR REGISTER 


CD 




301245 




MICPC»MICPC+1 


( D 




i 2 322« 




<riOVt.i5FXi I6USiUooKi5r0> 


1513 


815P36 






BRWRTE IMM, 177 ; MASK OFF BR REO 


(1) 




001 246 




HICPC«MICPC+1 


CD 


»15^36 


000577 




<M0VE1WRTEBRIIMMK177» 


1514 








; RESET TIMER— SLICK MOVE 


1515 








(SINCE TIMER IS RESET BY WRITING 


1516 








(A 1 AND THE EXPIRATION LOOKS 


1517 








( LIKE 1—VOILA 


1518 


<jl504U 






OUT BR,<AANDB10BR> ( AND THE BIT ON 


CD 




«}01247 




HICPC»MICPC+1 


( 1 ) 


«.1504d 


t/61271 




< MOVE ! WROUTXi BR ! <AANDB 1 OBR>> 


1519 


S>15042 






BRWRTE BR,SELA!SP1 ; READ STATUS BYTE 


CD 




001250 




MICPC«MICPC+1 


CD 


•,'15042 


660601 




<M0VE1WRTEBR1BR!<SELAJSP1» 


152^ 


Vl5isi\ 






BR7 IDLE (IF IN MAINT, MODE DISABLE TIMER 


( 1 ) 




001251 




HICPC*MICPC+1 


CD 


J15044 


103445 




<JUMPlBR7CON!<IDLE-INIT£3000«4>!<IDLE-INITi,777/2» 


1S21 


f 15046 






SP BR,DECA,SP15 {DECREMENT THE COUNTER 


CD 




iitfl 252 




MICPC«M1CPC+1 


CD 


if-15046 


1)63175 




<M0VE1SPX!BR1DECA:SP15> 


1522 


015«)5«J 






Z 20$ (IF ALL ONES HAS EXPIRED 


CD 




P01253 




HICPC=MICPC+1 


CD 


',15050 


1 1 1662 




<JUMPlZCOND!<20$-INlTt3000*4>l<20S-INIT&777/2>> 


1523 


015052 




10$: 


BRWRTE BR,SELA!SP10 ; READ LINE STATUS 


CD 




U01254 




MICPC«MICPC+1 


CD 


i.15052 


060010 




<M0 VE 1 WRTEBR I BR 1 <SELA 1 SP10» 


1524 


U5354 






BR1 TAfcUPD (NUMBERED MESSAGE IN PROGRESS 


CD 




001 255 




MICPC«MICPC + 1 


(1) 


t 15054 


116737 




<JUMP!BRlCON!<TABUPD-INlTS3000*4>:<TABUPD-INlTi777/2» 


1525 


t;15f56 






BR0 TABUPD \ UNNUMBMSG1N PROGRESS 


C I ) 




■301256 




MICPCsHICPC+1 


1526 


C15063 






bPSHFT 


CD 




t;01257 




MICPC'HICPC+1 


< D 


0150b i 


001623 




<MOVE ! SHFTBR1 WRTEBR 1 SELB> 


J527 


015462 






BR4 IDLE (START MODE 


CD 




101263 




MICPC*MlCPCtl 


CD 


015062 


103045 




<JUMPlBR4CONl<IDLE-INITSi3000»4>J<IDLt-lNIH,777/2» 


1529 


U1506 1 






ALWAYS SNDACK ( ELSE SEND ACK 


CD 




CH1261 




kicpc«micpc+i 


CD 


Ul5*o4 


1 10727 




<JUMP!ALCOND}<SNDACK-INITfc3000*4>!<SNDACK-INITfc777/2» 


1529 


K/153o6 




TIHEl : 




153» 


K15«-b6 




20$: 


BRWRTE IMM, 2 ( 


C 1 ) 




001262 




MICPC«MICPC+1 


C 1 ) 


•15066 


000402 




<MOVEl WRTEBR! IMM 1<2» 


1531 


k>l5t,7(> 






SP bR,SELB,SP15 (RESET THE TIMER TICK COUNT 


C 1 ) 




')01 263 




MICPC=MICPC+1 


CD 


i 15»)7 > 


.6 3 2 35 




<M0VE!SPXiBRJSELBJSPi5> 


1532 


■/15u72 






BRWRTE DP,<SELAiSP10> (READ LINE STATUS WORD 


CD 




i-A\lb\ 




XICPC'CICPC+l 


C 1 ) 


915 17? 






<MOyElWRIEfiRiDPi<S£LAlSP10» 



DHC11 DDCMP PROTOCOL IMPLEMENTATION 
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MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-9 
TIMSRV — TIMEOUT ROUTINE— SENDS REP 



PAGE; 012b 



1533 


SM5H74 




BRSHFT 


( 1 ) 




C»l 2b5 


MICPC«MICPC+1 


( 1 ) 


'»1507 4 


t?0l620 


<H0VE!SHFTbRi«RTE8RiSELB> 


1534 


1/15076 




BP4 BS1 J IF IN START MODE—BRANCH 


( 1 ) 




0i>1266 


MICPC"MICPC+1 


( 1 ) 


t3l5076 


103076 


<JUMPIBR4CON!<BSl-INIT«.3000»4>KBSl-INITfc777/2» 


1535 


115100 




BRWRTE BR,DECA1SP12 jGET LAST NUMBER SENT 


( 1 ) 




001 267 


MICPC"M1CPC+1 


( 1 ) 


bl510t> 


0b0572 


<M0VE1WPTEBR1BR!<0ECAJSP12» 


15 36 


£15102 




CHP BR,SP17 ^COMPARE TO LAST ACKED 


(1) 




001270 


HICPC»M1CPC+1 


( 1 ) 


f 15102 


i<60377 


<SUBTC1BR!SP17> 


1537 


«1510i 




Z 10$ ;IF EQ »»SEND ACK 


( 1 ) 




301271 


MICPC«M1CPC+1 


( 1 ) 


^1510* 


1 11654 


<JUMPIZCONDl<10«"INIU3000«4>I<10$-INITfc777/2» 


1538 


►115106 




TIME2; LDHA IMH, T ;LOAD ADDRESS OF TYPE FIELD IN 


(1) 




001272 


MICPC»MICPC+1 


CI) 


915106 


010153 


<H0VE!LDMAR!IMH!<TJ,377» 


1539 


01511.) 




MEMINC IMM,3 [LOAD REP TYPE 


( 1 ) 




001273 


MICPC«M1CPC+1 


U> 


P15110 


016403 


<M0VE1HRHEM1INCMAR]IHH1<3» 


1540 


1U5112 




MEMINC IMH, 300 - (ZERO THE SUB-TYPE 


(I) 




001274 


MICPC«MICPC+1 


( 1 ) 


0151 12 


016703 


<MOVE J WPHEM ! INCMARJ IMMl<300>> 


1541 


til 51 14 




LDHA IMM,REPCS jCUMULATIVE REPS RECD 


( 1 ) 




f!B1275 


MICPC*MICPCtl 


C 1 ) 


0151 1 4 


010015 


<MOVEiLDMARlIMHi<REPCS6377» 


1542 


f»15U6 




SP MEMX,SELB,SP0 ;COPY IT TO SP0 


(1 ) 




PI01276 


HICPC«MICPC+1 


( 1 ) 


SJ151 16 


043223 


<M0 VE 1 SFX 1 MEMX ! SELB 1 SP0> 


1543 


B1512P 




HEM BR,INCA1SP0 j INCREMENT IT 


( 1 ) 




00127? 


HICPC»MICPC+1 


( 1 ) 


i 1S12P 


y62469 


<HOVE ! HRMEM J BRKINCA i SP0» 


1544 


315122 




LDHA 1HM.REPST (ADDRESS DYNAMIC REP COUNTER 


( 1 ) 




I7Q1300 


MICPC»MICPC+1 


( 1 ) 


C15122 


P10003 


<M0VE1 LDHAR1 IMM 1 <REPSTfc37 7» 


1545 


015124 




BRWRTE MEMX, SELB ,COPY IT TO THE BR 


( 1 ) 




021301 


MICPC«MICPC+1 


( 1 ) 


SS15124 


040620 


<M0 VE ! HRTEBR 1 MEMX 1 <SELB» 


1546 


W1S126 




BSHFTB 


( 1 ) 




301302 


MICPC»MICPC+1 


( 1 ) 


4.15126 


061620 


<MOVElSHFTbRiSELBlBR> 


1547 


0151 33 




MEM BR, SELB 


( 1 ) 




ftdl 303 


MICPOM1CPC + 1 


( 1 ) 


*15130 


(462620 


<HOVEl HRHEH 1BR 1 <S£LB» 


154e 


P15132 




BR0 RTHRES 


( 1 ) 




001304 


HICPC"HICPC+1 


( 1 ) 


^15132 


102353 


<JUMP!BR0CONl<RTHRES-IHITS3000»4>l<RTHRES-INlTt777/2» 


15 49 


PI 51 34 




BRWRTE IMH, 201 ; MASK FOR OK TO SEND 


( 1 ) 




001305 


MICPC«HICPC+1 


(1 ) 


015134 


D00601 


<MOVEI WRTEBRJ IMM J<201>> 


1550 


PI 5 136 




SP BR,AORB,SP10 ;0R IT IN 


( 1 ) 




001306 


MICPC*MICPC+1 


( 1 ) 


015136 


i/63313 


<HOVEISPX!BR1AORB1SP10> 


1551 


k'15140 




ALWAYS IDLE 


( 1 ) 




001307 


MICPC"HICPC + 1 
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DDCNEtf.MAC 21-APR-77 10:08 TIMSRV--TIMEOUT ROUTINE—SENDS REP 

(1) <M514v4 180445 <JUMPlALCOND!<IDLE-INI»63000»4>KIDLE-INITfc777/2>> 

1552 .DSABLE LSB 

1553 ; 



DMC11 DDCMP PROTOCOL IMPLEMENTATION - MACYH 30C1046) ll-JUL-77 12:18 PAGE 12-11 PAGE I 0128 



DCNEW 


MAC 2 


-SpK-77 10:08 


HMSRV- 


-TIMEOUT ROUTINE—SENDS REP 


1555 


0151 12 




TEOM ; 


BRWRTE IBUS,U6BR 


(1) 




S!«J1 310 




MICPC»MICPC+1 


(1) 


1 15142 


12062 J 




<*OVE!NRTEBRlIBUS!<UBBR» 


1556 


015141 






BR0 NXMERR jNOH-rXISTANT MEMORY 


(!) 




i»0i 31 i 




KICPCsHiCPC*i 


(1) 


015144 


1 16063 




<JUHPI BRECON 1<NXHERR-INIT63000*4>I<NXMERR-INITS>77 7 /2» 


1557 


015146 






BRHRTE IMM, 2 ;EOM TO BR 


( 1 ) 




eaui2 




MICPC»MICPC+1 


( 1 1 


t 15146 


OW0402 




<MOVES WRTE8R! IMMJ<2» 


1558 


815153 






OUTPUT BR,<SELB10T«TC0> {WRITE TMTR CONTROL 


( 1 ) 




1301313 




MICPC=MICPC+1 


(1) 


t/15150 


062231 




<M0 VE 1 WROUT J BR J <SELB ! OTMTCO» 


■559 


s"i5152 






OUTPUT BR,<SELB1TMTDA?> J WRITE GARBAGE DATA 


CI) 




001314 




HICPC*HICPC+1 


(1) 


S15152 


l>62230 




<MOVE! WROUT ! BRKSELBJ TMTDAT» 


156k) 


il5154 






BRWRTE BR,SELA!SP1 fCKECK FOR BOOT HOOE 


(1) 




k>01315 




HICPOMICPC+1 


(1) 


015154 


360601 




<M0VE1WRTEBR!BR!<SELA!SP1» 


1561 


415156 






BR7 BTEOM ; ---IF SET IS HAINT MSG 


(1 ) 




&01316 




MICPC«M1CPC+1 


(1 ) 


F15156 


1 1 3755 




< JUMP 1 BR7C0N J <BTEOM-IHITi3000»4> J <BTEOM-INITfc777 /2» 


1562 


G15160 






SP BR,INCA,SP12 ; INCREMENT THE MESSAGE NUMBER 


(1) 




D01317 




MICPC=MICPC+t 


(1) 


615163 


36 30 72 




<M0VE:SPX1BR!INCA!SP12> 


1563 


i 15162 




TE0H1: 


LDMA IMM,LTC ; ADDRESS LAST TMT LINK 


(1) 




P01320 




MICPC*MICPC+1 


(1) 


L15162 


010071 




<MOVEI LDMARI IMM{<LTC4377>> 


1564 


'M5164 






LDMA MEMXrSELB 


(1) 




901321 




HICPC=MICPC+1 


(1) 


fcl5164 


C50220 




<MOVEl LDMARJ MEMX! <SELB>> 


1565 


B15166 






BRWRTE MEMXi SELfa 


( 1 ) 




0S1322 




MICPCaMICPC+1 


(1) 


»15166 


04062 k) 




<MOVE! WRTEBR1 MEMX t <S£LB>> 


1566 


i?15170 






BR0 TE0M2 


C 1 ) 




001323 




MICPC«MICPC+1 


(1) 


015170 


112334 




<JUMPJBR0CONl<TEOH2-INITfc3000*4>l<TEOM2-II«ITi777/2» 


1567 


P15172 




TE0M3 j 


BRWRTE IMM, 375 ;TURN OFF MESSAGE PENDING 


(1) 




001 324 




KICPCzMICPC+1 


(1) 


015172 


C00775 




<MOVE! HRTEBRi IMM t <375» 


1568 


315174 






SPBR BR, AANDB,SP10 


(1) 




001325 




MICPC"MICPC+1 


CI) 


015174 


1)63670 




<MOVElSPBRXiBRiAANDB]SP10> ' 


1 So* 


4>i5i76 






BR0 TE0M2. -IF UN NUMB PENDING— GO AWAY 


CI) 




001326 




HICPC«MICPC+1 


CD 


615176 


112334 




<JUMPlBR0CONKTEOH2-INIT6300e»4>!<TEOM2-INIT&777/2» 


1570 








. SBTTL SNDACK— ROUTINE TO SEND AN ACK 


1571 


315200 




SNDACK: 


LDMA IMM,T 


CI) 




W01327 




HICPC«MICPC+1 


CI) 


S15200 


1)10153 




<MOVEI LDMAR ! IMH KTiS77» 


1572 


SS152U2 






MEM INC IMM, 1 


CI) 




1101330 




MICPC«MICPC+1 


CI) 


H5202 


316401 




<M0VE1WRMEM< INCMAR I IMM 1 <1>> 


1573 


015204 






BRWRTE IMM, 5 


C 1 ) 




£01331 




MICPC=MICPC-H 


CI) 


"15234 


000405 




<M0VElWPTEbRJIMHl<5» 


1574 


:;15206 




SA2: 


MEMINC IMM, 300 
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CI) 




001332 


MICPC«MICPC+1 




C 1 ) 


1315206 


316700 


<MOVE 1 WP.HEM 1 INCMAR1 IHMl<300>> 




1575 


U5210 




SA3: SP BR,AORB,SP10 




CI) 




1701333 


MICPC«MICPC+1 




(1) 
1576 


SM5210 


063310 


<MOVE!SPX1BR1AORB1SP10> 




1577 


015212 




TE0M2: STATE TMTA 




C 1 ) 




001 334 


HICPC=MICPC+1 




CI) 


«15212 


300403 


<M0VE1 WPTEBRi IMMKTMTA»INITS777/2>> 


1578 


1615214 




ALWAYS XEXIT 




CI) 




001335 


HICPC»HICPC+1 




CI) 


015214 


100451 


<JUMP!ALCONDKXEXIT-INIIfcJ00B»4>J<XEXIT-INITi777/2» 


1579 


HJ15216 




FUDGE: BRWRTE IBUS,NPR 


; READ NPR CONTROL 


C 1 ) 




k>01 336 


MICPCaMICPC + 1 


(1) 


015216 


1 2060* 


<MOVE!WPTEBR!IBUSI<NPR» 




1580 


1515224) 




BR0 IDLE 


;IF NPR GOING— LEAVE 


CI) 




001337 


MICPCoMlCPC+1 




CI) 


wl5220 


102045 


<JUMPlBR0CONJ<IDLE-INITfc3000»4> 


<IDLE-INIU777/2» 


1581 


CM5222 




BRWRTE BRiLDMAR, SELAi SP4 


; LOAD THE MAR 


C 1 ) 




U01340 


MICPC«MICPC+1 




C 1 ) 


015222 


;»70604 


< MOVE 1 HRTEBRi BR lLDMAR|<5ELAiSP4>> 


1562 


1:15224 




bR7 BS2 


;IF SET - RtAD BACK ALL 200 


CI) 




0k) 1 341 


HICPC«MICPC+1 




CI) 


J15224 


103505 


<JUMP!BR7CONKBS2-INIT63000#4>KBS2-INITi777/2» 


1583 


015226 




MEMINC IBUS,INDAT1 


{OTHERWISE RESTORE TWO BYTES 


CI ) 




201342 


MICPC«MICPC+1 




CI) 


U15226 


036400 


<M0VE!WRMEM!INCMARJIBUSKINDAT1» 


1584 


rl5230 




MEMINC IBUS, INDAT2 




CI) 




001 IU 


MICPC«MICPC+1 




C 1 ) 


S15230 


036420 


<M0VE1 NRMEM! INCMARI IBUS KIND AT2>> 


1585 


315232 




BRWRTE IMM, 2 


; UPDATE— UNI6US ADDRESS 


C 1 ) 




H01344 


HICPC«M1CPC+1 




CI) 


015232 


P00402 


<MOVEi MRTEBRi IMMJ<2» 




1586 


i 15234 




SP BR,ADD,SP4 


; UPDATE NPR COUNTER 


CI) 




fc/01 345 


MICPC*MICPC+1 




C 1 ) 


C15234 


063004 


<M0VE1SPX!BRIADD1SP4> 




1587 


K15236 




SP IBng. tirai. spa 


; UPDATE ADDRESS Lnu 


CI) 




£01 346 


HICPCsMICPC+1 




CI ) 


?15236 


023100 


<HOVEISPX1IBUSIIIBA11SP0> 




1588 


(.15240 




OUTPUT BR, ADD1 IBAl 




(1) 




001347 


MICPC«K1CPC + 1 




CI) 


815240 


062004 


<MOVEl WROUT! 8RKADD1IBA1» 




158i 


B15242 




SP IBUS, TIBA2, SP0 


; READ HIGH ADDRESS 


CI) 




irffcl 350 


MICPC«MICPC+1 




CI) 


l»15?42 


02 3120 


<MOVL1SPX!1BUS1IIBA21SP0> 




1590 


C15744 




OUTPUT BR,ACIIBA2 


; UPDATE HIGH 


C 1 ) 




y»1351 


HICPC«M1CPC*1 




C 1 ) 


T15244 


t,62t95 


<M0VE1WR0UTJBRJ<AC1IBA2» 




iSb»l 


015246 




C RESEXT 


;IF CARRY— UPDATE MXT 


C 1 ) 




£.31 352 


MICPC*M1CPC+1 




CI) 


?15246 


105367 


<JUMPlCCONDKRESEXT-INITfc3000*4>KRESEXT-lNITS,777/2» 


1592 


i'15?5P 




RESl: SP IPUS,NPR,SP0 


; READ NPR REGISTER 


( 1 ) 




1.0135 3 


KICPC«M1CPC+1 




C 1 ) 


H1525J 


1 2 3200 


<M0VElSPXl IBUSiNPR!SP0> 




1593 


-S15252 




ALWAYS TH3X 


;G0 DO ANOTHER NPR 


( I ) 




.01354 


MICFCsMlCPC+1 





DMC 

ODCI 
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i 




<JUMP! ALCONDj<TH3X-INITS3000*4>!<TH3X-INITs777/2>> 


1 SQd 


Ol S7S4 




BTEOM : 


BRWRTE IMM.374 


;MASK FOR CLEAR MSG PENDING 


/II 




001 355 




MICPC«MICPC+1 




( 1 } 


(•15254 


0007 74 




<M0VEIWRTEBR1IMH1<374» 




1595 


^ 1 5 256 






SP BR, AANDB.SP10 


; TURN THEM OFF IN LINE STATUS WORD 


( 1 ) 




001 356 




HICPC»MICPC+1 




( 1 ) 


i>l 5256 


06 3 270 




<MOVE 1 SPX 1 BRl AANDB I SP1 0> 




1 596 


015260 






SP BR,SELB,SP13 


jSTORE UNRECOGNIZABLE VALUE INTO SP13 


( 1 ) 




B01 357 




HICPC«HICPCfl 




( 1 ) 


61526*} 


063233 




<H0VE1SPX1BR1SELB1SP13> 




1597 










J SO "RH3" WILL EXIT BACK TO IDLE LOOP 


159fl 


015262 






LDMA IMH,STC 


; ADDRESS START OF TMT CHAIN 


CI) 




L01 360 




MICPC«MICPC+l 




( 1 ) 


L 1 5262 


310070 




<M0VE!LDMARiIMMJ<STCS377» 




1599 


C15264 






SP MEMX, SELB, SP0 


;COPY LINK ADDRESS 


( 1 ) 




301 361 




HICPC»HICPC+1 




( 1 ) 


015764 


C*43220 




<M0 VE 1 SPX ! MEMX ! SELB I SP0> 




16B0 


>'t 5266 






TSTATE NUHSJN 


(CHANGE XNIT STATE TO LINE IS IDLE 






013 2 




HICPC*MICPC+1 




f i 1 


u 


#004 3 1 




<MOVElWFTEBRlIHNl<NUMSXN«INIT&777/2» 










HICPC»MICPCtl 




f 1 1 


'l 5171 


063222 




<H0VElSPX!BRiS£LBiSP2> 




i i 


r-15272 






ALWAYS TD0N2 


;POST A DONE 


f t\ 




S/0 1364 




HICPC«M1CPC+1 




; 

C 1 1 


_ 

©1 5272 


1 14534 




<JUHP!ALCONDJ<TDOHj-INIT«,30«0»4>l<TDON2-INITJ,777/2» 


16s>2 


4! 1 527 4 




RL41 


RSTATE RCVL 




( 1 ) 




001 365 




HICPC»MICPC+1 




( 1 ) 




0007 1 5 




<MOVEI WRTEBRI IHMl<RCVL-INITS777/2» 


( 1 ) 




001 366 




MICPC«MICPC+1 




( 1 J 


915276 


£63223 




<NOVE 1 SPX 1 BR J SELB • SP3> 




1603 


01 5 30^ 






SP IBUS,NPR,SP0 


; READ NPR CONTROL REGISTER 


( 1 ) 




001 367 




MICPC»MICPC+1 


( I ) 




1 23200 




<MOVE I SPX • I BUS i MPR 1 SP0> 




1 6 1 f 


C15302 






BPWRTE IHM,221 




( 1 ) 




001 370 




HICPC»HICPC+1 




( 1 ) 




000621 




<H0VEiWRTEBRlIMH|<2ai» 




1611 


p I 5334 






ALWAYS RK7 




■ J • 




001 371 




MCPC-MICPC+1 






115304 


1 0464 3 




< JUMP 1 ALCOND J <RK7 -IN ITWB00* 


4>!<RK7-INITfc777/2>> 


1613 


5 306 




HOINCHt 


SP IBUS,IIBA2,SP0 




( 1 ) 




00 1372 




HICPC«HICPC + 1 




( 1 ) 


b 1 5 306 


£23120 




<HOVEJSPX'IBUS1IIBA2JSP0> 




1614 


015 310 






OUTPUT BR,INCA!IBA2 


;OUTPUT INCREMENTED BA 






001 373 




MICPC=MICPC+1 


i i > 
1 1 i 


'[* * 


k*62065 




<M0 VE1 WROUT I BR J <INCA J IB A2>> 




, ? 


(.15312 






C 5S 


j INCREMENT BYTEW COUNT 


( 1 ) 




001 374 




MICPC«M1CPC+1 




y 1 53 1 2 


11 1376 




<JUMP!CCONDi<5$-INITt3000»4>K5S-INIT<.777/2>> 


1616 


»M5314 






ALWAYS TH8 




( 1 ) 




001375 




MICPC«MICPC+1 




( 1 ) 


^15314 


1 105&5 




< JUMP! ALCOND J <TH8-INIT63000*4>J<TH8-INIT4777/2» 


1617 








j INCREMENT MXT BITS 




1618 


t>15316 




5$: 


SP IBUS,NPR,SP0 


j READ NPR REG IWTH CURRENT MXT BITS 


( 1 ) 




001376 




MICPC«MICPC*1 




(1) 


1/15316 


1 23200 




<MOVE!SPX1IBUSINPR|SP0> 




1619 


fcl532t> 






BRWRTE IMM,4 


} WRITE BIT TO ADD 



DMCll DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12:18 PAGE 12-14 PAGE: 0131 

ODCNt«*.^AC 21-APR-77 10108 SNDACK— ROUTINE TO SEND All ACK 



( 


) 




{Ml 377 


mcpc«mcpc+i 


( 


) 


1,1532* 


000404 


<M0VE1 WRTEBRI IMM!<4>> 


16 




£1532^ 




OUT BR,<ADD10NPR> j TURN ON PROPER MXT 


( 


) 




B01 400 


MICPC*HICPC+1 


( 


) 


015322 


061010 


<M0VE1HR0UTX|BR!<ADD10HPR» 


16' 


1 


K15324 




ALWAYS TH8 


( 


) 




l/IJl 401 


MICPCMICPC+1 


( 

16. 


) 
!2 


iM5324 


t 10565 


<JUMP! ALCOND! <TH8-INIT6380fl»4>l<TH8-INIT4,77 7 /2>> 


16, 


3 


015326 




1 

HEH1 : STATE TEOM 


( 


) 




i)Wl4J2 


MICPC»M1CPC+1 


( 


) 


015326 


000710 


<M0VE1 WRTEBRI IMM!<TE0M-INITt77 7/2» 


16, 


4 


015330 




army* XfxiT 


( 


) 




o-'Hai 


HICPC»MICPC+1 


( 


) 


01533H 


100*51 


<JUMPlALCONDl<XEXlT-INIT430B0»4>KXEXIT-INITfc77 7/2» 
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f.AC 2 




REP HANDLER 




1627 








. SBTTL REP HANDLER 




1628 


<M5332 




rep: 


LDMA IMM, REPCR 


;LOAD MAR ADDRESS WITH POINTER TO REPS RECC 


( 1 ) 




UOl 4134 




MICPC*HICPC+1 




( 1 ) 


015332 


01 001 6 




<MOVElLOMAR!IMMi<REPCR&377>» 




lb29 


9J5334 






SP HE«X,SELB,SP» 


;READ NUMBER Of REPS RECD 


CI) 




»>01405 




MICPC»MICPC+1 




( 1 ) 


C15334 


043220 




<M0 VE J SPX ■ MEMX 1 SELB ! SP0> 




1630 


015336 






MEM 0P f <INCAJSP0> 


; INCREMNT REPS RECD 






Jij'iiidb 




MICPOMiCPCtl 




(1) 


til 5 3 36 


962462 




<M0VE2 WRNEMJ OP I <INC AJ SP0» 




1631 


815340 






LDMA IMM,T 


;LOAD ADDRESS OF TYPE FIELD 


( 1 ) 




14117 




MICPC»MICPC+I 






L I 5 34.? 


t!!3!53 




<«0VS:L£3HAR> IMMi<?4377» 




1632 


(•,■15342 






HEMINC IMM,2 


; LOAD NAK TYPE 


(1) 




0»1410 




MICPC«HICPC+1 




( 1 ) 


J15342 


£1642)2 




<MOVE! WRMEH1INCMAR11MM1<2» 




1633 


015344 






MEHINC IMM, 303 


;LOAD REP RESPONSE SUB-TYPE 


1 1 ) 




001411 




MICPC*MICPC+1 




f 1 ) 


"15344 


£16703 




<MOVEi NRMEM1 INCH AR( IMM i<303» 




1634 


►M5346 






ALWAYS S«AK 


; SEND AN UNNUMB MSG 


( 1 ) 




li>01412 




MICPC»MICPC+1 


f 1 ) 


015346 


114712 




<JUMPlALCOHDJ<SNAK-INITS3000*4>!<SNAK-INITt777/2>> 


1635 
1636 








i 

.SBTTL START HANDLER 




1637 


B15359 




START: 


8RWRTE OP,<SELA1SP10> 


;READ LINE STATUS WORD 


C 1 ) 




001413 




MICPC=MICPC+1 




(1) 


015350 


360610 




<M0 VE 1 MRTEBR 1 DP ! <SELA 1 SP1 0» 




1638 


015352 






BRSHFT 


; GET START MODE BIT IN TESTABLE POSITION 


(1) 




001414 




MICPC*MICPC+1 




(1) 


"15352 


001620 




<MOVEl SHFTBR i WRTEBR ! SELB> 




1639 


• f>15351 






BR4 10$ 


:IF IN START MODE SET STACK 


1 1 ) 




801415 




MICPC=MICPC+1 




(1) 


315354 


1 17321 




<JUMPlBR4CONJ<i0S-INITt3000»4>l<10S-INITi777/2» 


1640 










•ELSE SET UP START ERROR 


1641 


015356 






LDMA IMM,«RTHRS+3» 




CI) 




£21416 




HICPC«MICPC+1 




( 1 ) 


01535b 


010177 




<HOVElLDMARJIMMJ«RTHRS+3>6377» 




1642 


315360 






BRMRTE IMM,200 




( 1 ) 




001417 




NICPC*MICPC+1 




( 1 ) 


015360 


£00600 




<MOVE ! WRTEBRI IMM ! <200» 




1643 


015362 






ALWAYS RCEXY 




( 1 ) 




(591420 




MICPC«M1CPC+1 






•315362 


114525 




<JUSP: ALCOHDi<RCEXY-I8IT63»00»4>l<RCEXY-INIUi777/2» 


1644 


015364 




10$: 


LDMA IMM,T 


;SET UP ADDRESS OF TYPE FIELD 


(1) 




441421 




MICPC«MICPC+1 




(1) 


K15364 


S10153 




<HOVEILDMAR!IMMJ<T4377» 




1645 


015366 






MEMINC IMM, 7 


; WRITE STACK TYPE 


CI) 




001422 




MICPCsMlCPC+1 




CI) 


F15366 


016407 




<M0¥E1WRMEM>II(CMARJIMM1<7» 




1646 


S'15370 






BRWRTE IHM,U 


jSET START RECD AND UNNUMB PENDING 


CI) 




301423 




MICPC*M1CPC+1 




C 1 ) 


U1537i> 


000411 




<MOVE! WRTEBR J IM*1<1 1>> 




1647 


t.15372 






ALWAYS SA2 


; SEND THE UNNUMBERED MESSAGE 


CI) 




001424 




MICPC«MICPC+1 




C 1 ) 


915372 


110732 




<JUMP!ALCONDJ*SA2-INITS3000*4>I<SA2-INITS,777/2» 


1648 








; 
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STACK 


HANDLER 




1649 








.SBTTL STACK HANDLER 




1650 


fcl5374 




STACKj 


BRWRTE IMM, 327 


; MASK TO CLEAR START MODE 


CI) 




t/01425 




MICPC»MICPC+1 




CI) 


UI5374 


,} .50727 




<M0VE1NRTEBR> IMM1<327» 




1651 


1*15376 






SP BR, AANDB, SP10 


{CLEAR START MODE 


CI) 




0tH426 




MICPC=MICPC+1 


CI) 


015376 


963270 




<M0 VEi SPX! BR ( AANDB ! SP10> 




1652 


01540.) 






ALWAYS TIME1 


; RESET TIMER AND IDLE 


CI) 




001427 




MICPC»MICPC+1 




(1) 


?154tlk) 


1 1 0662 




<JUMPJALCOND|<TIMEl-INITi3000»4>l<TIMEl-INIT4777/2» 
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165 4 


(;l 5402 




ICBA22 ; 


SP IBU8flOBA2f SP0 j REAOTHEHIGH ORDER BITS OF BA TO SPO 


( 1 ) 




ooi 430 




MICPC = MICPC t 1 


( t ) 


ftl 5 402 


023 1 60 




<HOVE!SPXi IBUSi IOBA21SP0> 


1 655 


1/15404 






OUTPUT DPf < ItyCA 1 0BA2> J OUTPUT THE INCREMENTED COUNT 


(1) 




001431 




MICPC««ICPC+1 


(1) 


tfl5404 


062067 




<MOVEIWROUTIDPJ<XNCAIOBA2» 


1 656 


to 1 5 106 






c 5$ j xf Carry set increment the mxtbits 


( 1 ) 




&01 432 




MICPC*MICPC+1 




4*1 5406 


1 1 503 4 








»1 541.* 








J 




001 433 






( 1 ) 
1 65 8 


015 41>) 


1 ^4660 






1 659 


m 5 1 1 2 




5$ t 


7 

SP IBUS« UBBRy SP& 


( 1 ) 




jjttl 434 






( I ) 


015412 


123220 




<MOVE £ SPX 2 I BUS! UBBRI SP0> 


1 660 


541 4 






BRWRTE I MM # '4 


( t ) 




001 435 




MICPC«M1CPC+1 


( t ) 


115414 


000404 




< HOVE I WRTEBRl IMMi<4>> 


1661 


915416 






OUT BRf<ADDlOBR> 


CI) 




301 436 




MICPC*HICPC+1 


( I ) 


,515416 


6>61 01 1 




<MOVE I WFOUTXJ BP I<ADD10BR>> 


1662 


r?!5420 






ALWAYS RK9 


( 1 ) 




001 4 3 7 




MICPC*HICPC+1 


C 1 ) 


'*>15420 


1 94663 




< JUMP i ALCONOi<RK 9*1 NITfc3000*4> i <RK9"INIT&777/2>* 


1 66 3 


fc; 1 5 4 2 2 




FLUSHl : 


SP IMM r 200rSP0 jFLUSH THE RECVR 






£01 440 




MICPC«MICPC+1 


( I ) 


f ? 15422 


0**3200 




<H0VE1 SPX 2 I MM ! 2001 SP0> 


1664 


f 15424 








C 1 ) 




£01441 






( 1 ) 


((1 542 4 


062 2 1 2 




< MOVE I WR0UT1 BR t <SELA 2 ORC VCO^> 


1665 


$15426 






nuHAIO L^l 






001442 






i 1 ) 


JH 5426 


1 04575 




< JUMP 2 ALC0ND1 <CGl "INITt3000*4> 1 <CGl *INITfc777 /2>* 




$15 43'* 




NAKj 




CI) 




001443 






( 1 ) 


a>1 5430 


01 0070 




< MOVE I LDMAR I IMM 1 <STC6377» 




01 5432 








( 1 ) 




001 444 




MICPC*MICPC+1 


( 1 ) 


& 15432 


057220 




<M0VE2 SPX2MEMX1 INCMAR1S£IiB|SP0> 


1 66 8 


irM 5 43 4 






MEM BRfSELA!SP0 jCOPY START OF CHAIN 


( 1 ) 




001 4 45 




MICPC*NICPC+ 1 


( 1 ) 


f 1 5 4 * 4 


062600 




<M0V£1 WRMEM * BRt <SELiAlSP0» 


1 669 


<; 1 5436 






BRWRTE BR,INCA!SPl7 # GETLASTMESSAGE ACKtD 


CI) 




(501 4 46 




MICPC*MICPC+ 1 




#154 36 


060477 




<M0VE1 WRTEBRl BR 2 < INC A I SPX 7 >> 


1 67tf 


tH 5 440 






SP BRf SELB $ SP\ 2 * COPY TO CURRENT NUMBER 






301 4 47 






CI) 


'M5440 


063232 




<M0VEISPX!BRtSELB!SP12> 


1671 


IJ15442 






BRWRTE IMM, 6 ;WRITE NUMBERED MSG PENDING 


C 1 ) 




fOMSO 




HICPC«MICPC+1 


CI) 


■#15*42 


000406 




<M0VE 2 WRTEBRl IMM 2 <6» 


1672 








; AND LINE HAS GONE IDLE 


lt>73 


)15444 






SP BR,A0RB,SP10 ;SET IT IN LINE STATUS WORD 


CI) 




001451 




MICPC-MICPC+1 


CI) 


*15444 


063310 




<M0V£I SPX1 BR 2 AORB 2 SP10> 



DMCll DOCMP PROTOCOL IMPLEMENTATION MACYll 30(1B46) U-JUL-77 12] 1 8 PAGE 12-18 PAGE: 0135 

DDCNtW.fAC 21-APP-77 1»I08 STACK HANDLER 



167* 


015446 




SP BR,SELB,SP15 


; RESET TIMER COUNT 


( 1 ) 




aai452 


MICPC»M1CPC+1 




( 1 ) 


.A15446 


U63235 


<H0VEISPXlBRlSELBiSP15> 




167S 


tfl545M 




ALWAXS TE0M1 




( 1 > 




0^1453 


MICPC-MICPC+1 




( t ) 


315451' 


> 1^720 


<JUMP!ALCONDKIEOHl-INITt300««4>l<TEOMl-INIT6777/2» 


1676 


SM5452 




ININT: BRWRTE IMM, 15 


; MASK FOR TURN OFF ALL BUT 


(1) 




001454 


HICPC«MICPC+1 




CI) 


vl5452 


000415 


<M0VEI WRTEBRl IMM {<15» 




1677 


t 15454 




SP I6US,UBBR,SP0 


f READ BR CONTROL REGISTER 


( 1 ) 




C .41 455 


MICPC«MICPC+1 


CI) 


f 1 5 1 5 4 


12322» 


<M0VEI SPX! IBUSI UBBRI 5P0> 




1678 


815456 




SP BR,AAHDB,SP0 


; MASK OFF VECTOR TO X04 


C t) 




ttfi 456 


MICPC«MICPC+l 




C 1 ) 


j 15 456 


U63260 


<M0VE1SPX!BR1 AANDB|SP0> 




167* 


1546«l 




BRWRTE IMM, 200 


; MASK FOR INTERRUPT 


CI) 




001457 


MICPOHICPC + 1 




CI) 


01546'J 


00060/1 


<M0VE1 WRTEBRl IMMI<200» . 




16bn) 


i?15462 




OUT BR, AORB !0BR 


; INTERRUPT 


C 1 ) 




Ctol 460 


MICPC»M1CPC+1 




CI) 


U1546^ 


061311 


<M0VE!WR0UTX1BRKA0RB]0BR» 




1691 


K15464 




SP IBUS,INCON,SP0 


; RESTORE INPUT CONTROLCSR 


CI ) 




1101 4b 1 


MICPC"M1CPC+1 


C 1 ) 


P1S464 


1 ? 3000 


<MOVE!SPXJIBUS1INCON:SP0> 




1682 


5 15466 




ALWAYS NIDLE4 




CI) 




001462 


MICPCstMICPC + 1 




CI) 


1)154 66 


100563 


<JUMP|ALCONDl<NIDLE4-INITfc3000*4>S<NIOLE4-INlT&777/2» 


1693 






1 





DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APR-7? 10:06 



MACY11 30(1046) U-JUL-77 128 18 PAGE 12-19 
NXMERP ---NON EXISTANT MEMQP* HANDLER 



PAGE: 0136 











1686 


411547(1 




NXMERR ! LDH A I MM <<RTHRS+3>> ? ADDRESS f£RROp LINK 


( 1 ) 




1 463 


MTTPPcm r f on a i 


( 1 ) 


l'1547i) 


D10177 




1687 






HEHINC I M M. 1 


( 1 ) 




09146 4 




( 1 ) 


315472 


916401 


<H0VE! WRMEM! INCMARJ IMM!<1» 


16P8 


'.'15474 




MEM IMM,0 ;KXW ERROR BIT 


(1) 




001 465 


MICPCxHICPC+l 


(1) 


S15474 


i>02100 


<M0VE! WPMEMIIMM!<0» . 


1689 


1,15476 




SP MEMX,SELB,SP10 j CLEAR STATUS 


(1) 




0^1466 


MICPOM1CPC + 1 




S15476 


043230 


<K0 VE i SPX : MEMX i 5ELB I SPl 0> 


1690 


1515500 




ALWAYS RCEXX 


CI) 




001467 


HICPOMICPC+1 


(1) 


015500 


1 14527 


<JUMP!ALCONDl<RCEXX-INlTfc3000*4>l<RCEXX-INIT&777/2» 



DfCll DDCMP PROTOCOL IMPLEMENTATION 
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SELQSY— ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 



PAGE: 0137 



1692 






1693 






1694 


El 5502 




(1 ) 




S01470 


(1 ) 


P15502 


323605 


1695 


015504 




(1) 




301471 


(1) 


PI5504 


117477 


1696 


1*15506 




(1) 




2101472 


(1) 


I 15506 


06P525 


1697 


015510 




(1 ) 




801473 


(1) 


015510 


1 17502 


1693 


K15512 




(1 ) 




901474 


(1) 


015512 


000477 


1699 


»15514 




(1) 




041475 


(1) 


U1551 4 


06 3065 


17fc0 


015516 




(i> 




3*1476 


(1) 


115516 


164463 


1701 






1702 


615520 




(1 ) 




!)01 477 


( 1 ) 


-15520 


000600 


1703 


015522 




(1 ) 




001500 


(1 ) 


..15522 


063310 


1704 


4-15524 




(1) 




001501 


(1) 


"15521 


1 14472 


1705 


i>1552o 




(U 




£01532 


(1) 


<M5526 


000 420 


1706 


.'•15530 




(1) 




W1503 


(1) 


> 15530 


063310 


17C7 
(1) 


<>15532 


1? HI 534 


(1) 


015532 


1 1 4474 



.SBTTL SELQSY— ROUTINETOCHECK SELECT AND QSYNC AND DIDDLfc. LINE STATUS WORD 
J USES SP5, ALWAJS CALLED BY FIRST INSTR IN A RSTATE 
SELQSY: SPBR 1BUS»RCVDAT»SP5 (READCHARACTERINTO SP5 AND THE BR 

MICPC*M1CPC+1 

<M0VElSPBRXUBUSiRCVDATlSP5> 

BR? 15S f SELECT SET?--BRAnCH 

HICPCMICPC+1 

<JUMPiBR7CONK15S-INITS3000»4>J<15S-INIT4777/2» 
5$: BRHRTE BR,AAiSP5 ;SHIFTBR LEFT 

HICPC«MICPC+1 
<M0VE!WPTEBRIBR1<AAISP5» 

BR7 20$ j FINAL SET? 

MICPC»MICPC+1 

<JUMPlBR7CONl<20S-INIT&3000«4>l<20$-INIT&777/2» 
10S: BRWRTE IMM, 77 ) MASK TO BR 

MICPC«MICPC+1 
<M0VE1 HRTEBR1 IMM 1<77» 

SPBR BR, AANDBf SP5 ; TURN OFF SELECTANDUN AL 

MICPC*HICPC+1 

<M0VE1SPBRX1BR{ AANDBiSPB> 

. ALWAY BR,INCA,SP3IPAGEl 

HICPC«HICPC*1 

<JUMP1ALC0NDJBR!INCA1SP3|PAGE1> 

15$: BRWRTE IMM, 200 JSET OK TO SEND 

MICPC*HICPC+1 
<HOVE! WPTEBRJ IHMl<200» 
SP BR,AORB,SP10 
MICPC«M1CPC+1 
<M0VE1SPX1BRS AORB1SP10> 
ALWAYS S$ 
MICPC"M1CPC+1 

<JUKP! ALCONDJ<5S-INITS3000*4>l<56-INIT6.77 7/2» 
20$: BRWRTE IMM, 20 ; SETC LEAR ACTIVE 

MICPC«HICPC+1 
<MOVE1WRTEBR1IMM1<20» 



f IN LINE STATUS WORD 



HICPC«MICPC+1 
<M0VE!SPX!BR1 AORB1SP10> 
ALWAYS 10$ 
MICPC=M1CPC + 1 

<JUMPiALCONDl<13S-IHIT63000*4>i<10$-INIT477 7/2» 



DMC11 DDCHP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21 -APR. 77 10:08 



HACYU 30(1046) ll-JUL-77 12(18 PAGE 12-21 

SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 



PAGE* 8136 



;FUGITIVE RECEIVE ROUTINES— DON'T FIT IN PAGE 



10 &15534 




RHl 1 


BRWRTfe- IBUSr I0BA1 }READ LOW BYTE OF IN BA 




001505 






I ) it 1 1 5 5 3 4 


P2 5 40 




< MOVES WRTEBR 1 1 BUS 1<X0BA1 


ll 015536 






BR0 RCVODD y IF SET IS ODD TRANSFER 




#01506 




MICPCsMlCPC+1 


i ) 0| 55 j6 


116111 






.6 3155 49 






oil lb Kl. V fNCiW 










I) 015540 


&00t> 7 4 




<MOVEI WRTEBR 1 IHM J <RCVKE0«INITfc777 /2>> 


i 7 t?l 55 4 2 






lT.lilVC DFvTT 
AURA X D Kt>A 1 1 




001510 




MICPC*MICPC+1 


1) 015542 


104422 




<JUMPULCOND|<REXIT-INIT43000»4>KREXIT-INITfc777/2» 


19 UI5544 




pv. iuuu • 


CVITC 1 DP\ilffl4 

OiAfL KcvrvUi 




01 5 1 1 




Mil* ft "HH, ▼ 4 


i) 1M5544 


000626 




<unVF ! WRTPaR 1 TUU 1 ^DrWAf •TUTTtlTI 7*5^* 
^nyit* wniLBHi inn & %ki. •M/i*iR4iM r f / 


!0 tf"15546 






ALWAYS REX I T 




001512 




II T P Dt*m UTT BP a. 1 


) F15545 


1 04422 






!2 015550 




I*V» (JUKI 


CMP HEMXr or 4 J COMPARE LOW ORDER BITS 




00151 3 
add til 




uTfDrtuiPorAi 

If IV *f11L rt T 1 


) 01 5550 






^CflfiTP 1 HCUYl GDIS 


!3 &15552 






C RCFATL jCARRY^^TOQ BIG 




001514 




H IL rV *M 1 C PL ▼ 1 


.) t)15552 


1 15116 






!4 £15554 






AT.U&YA DPC . 0"f CP Prtttl>TaiflC 
nuHAI a K\,0 J bust LUNilnUL 




001 5 1 5 




UTS* of m M T P D#" A 4 


) 015554 


104475 






!5 015556 




RCFATLS 


LDMA IMM* T 




00 15|6 




II T P DP = II T P DP x 1 


) P15556 


010153 




<M0VE2LDMAR1 lMMi<T4377>£ 


!6 $15560 






MEMINC IMM#2 




601517 




m tpdpWu irDr±i 


') i*15560 


01 6402 




^HOVf 1 URMPM 1 TUfMAP 1 TMMf 
>nviL i nrntfi 1 invnArt J>nn 


>7 £15562 






ury tuu lit 




00 1520 




U T f W sMTr or a 4 


) £15562 


002711 




^ni/Vb t RnRLn i inn I \ j l w 


!8 B15564 






LDHA IMM j <<RTHRS+ 1>> f ADDRESS ERROR LINK 




mi ai ?i 




HICPC B HICPC+ 1 


) 1/1 556 4 






4* HAVE* f l.riMB D 1 TMHI /yDTUDCi. >\ L - 


!9 W15566 






MEMINC IBUSr I0BA1 




0a>1522 




Hit W.»rlIt>HC + l 


lit flrcit 


036540 




< MOVE 2 WRHEM £ INCMARJ XBUSi <I0BA1 >> 


10 






MEMINC IBUSy I0BA2 




L'01523 




HICPC«MlCPC+i 


) ol5570 


036560 




<MOVEI WRMEMS IHCMARJ IBUSt <I0BA2>> 


It f/15572 






BRNRTE IMM,20 




001524 




MICPC»H1CPC+1 


) f 15572 


000420 




<MOVE1WRTEBR1IMM1<20» 


32 »15574 




RCEXY: 


MEMINC IMM#0 




091525 




HICPC«MICPC+1 


) 115574 


H 16400 




<M0 VE i HRMEM ! INCMAR 1 IMM| <0» 


33 IH 557b 






MEM BR f SELB 




001526 




MICPCbMICPCt-1 



DMCll DDCHP PROTOCOL IMPLEMENTATION 
DDCNEM,«AC 2J.APR-77 10|0B 



HACY11 30(1046) ll-JUL-77 12118 PAGE 12-22 

SELQSY--ROUTINETOCHECK SELECT AND QSfNC AND DIDDLE LINE STATUS WORD 



PAGE ! 0139 



H5576 


062620 




<M0VE 1 WRMEM t BR !<SELB» 




015600 




RCEXXS 


OUTPUT IMH,<2001ORCVCO> fFLUSH 


THE INPUT SILO 




001527 




MICPC"MICPC+1 




015600 


C02212 




<MOVE!WPOUT!IMMi<200tORCYCO» 




015632 






SP IHM,1,8P1 ' (SET INIT MODE 


IN PORT STATUS WORD 




001530 




MICPCaMICPC+1 




fclS602 


003001 




<M0VE1SPX1IMM|11SP1> 




915604 






ALWAYS NTRS1 






001531 




MICPC»MICPC+1 




t 15604 


114674 




<JUHPlALCONDl<NTRSl-IHlTt3000«4>J<NTRSl 


-INITfc777/2» 


*15606 




TD0N3 i 


; 

BRNRTE MEMX,SUBISPl7 


f COMPARE RESPONSE TO MSG NO 




001532 




MICPC-MICPC+1 




■r1S606 


040757 




<M0VE1WRTEBRIHEMXI<SUB1W17» 




i»15610 






BR7 RH3 


I IF NEGATIVE EXIT 




001533 




MICPC«MICPC*1 




ei561«J 


107567 




<JUMPlBP7CONKRH3-INITi3000*4>l<RH3-INITi777/2» 


615612 




TD0N2: 


LDMA BR, SELA! SP0 


J ADDRESS THE TRANSM1TLINK 




001534 




HICPC»HICPC+1 




f-15612 


070200 




<H0 VE ! LDHAP 1 BR KSELAl SP0>> 




015614 






MEM IMM,0 


j TURN OF ASSIGNEDAND TMTED BITS 




001535 




MICPC»M1CPC+1 


'<15614 


002400 




<M0VE! WRMEM 1IMM1<0» 




015616 






LDMA IMM,STC 






J01536 




HICPC*MICPC+1 




F15616 


010070 




<M0VeiLDMARlIMM!<STC6377» 




015620 






MEM IMMf TML1 


; ASSUME WRAPAROUND 




001537 




MICPC«M1CPC+1 




t'15620 


flt*2473 




<M0VE!WRMEM1IMM!<TML1» 




vtl5622 






BRWRTE IMM,TML8 


; WRAPAROUND? 




001540 




MICPC»MICPC + 1 


K15622 


000545 




<H0 VE1 WPTEBR 1 IMM I <T«L8» 




1M5624 






CMP BR,5P0 






001541 




MICPC«MICPC+1 




U15624 


060360 




<SUBTClBRiSP0> 




61562b 






Z TD0N4 


;YES 




001542 




HICPC»MICPC+1 




k)15626 


115545 




<JUMPiZCONDKTDON4-INIT63000»4>l<TDON4- 


INITW77/2» 


'M5b30 






BRWRTE IMM, 6 


j OFFSET FOR NEXT TMT LINK 




00)543 




MICPC*M1CPC+1 




015630 


000406 




<M0VElWRTEBRlIHMt<6» 




(715632 






MEM BR,ADD!SP0 


1 UPDATE THE POINTER 




U01544 




MICPC«MICPC+1 




f15632 


062400 




<MOVElWRMEM!BRt<ADDISP0» 




W15634 




XDCN4I 


LDMA IMM,NXTSP 


; ADDRESS DONE LINK. 




001545 




MICPC«M1CPC+1 


H5634 


310241 




<MOVElLDMAR!lMM!<NXTSPt377» 




015636 






LDMA MFMX,SfcLB!SPX!SP3 


j ADDRESS THE LINK, COPYING 




001546 




MICPC»MICPCtl 




015636 


053223 




<M0VElLDMAR!MEMXKSELBiSPXlSP3» 




ill 5b 4.) 








;1TS ADDRESS TO SP0 






MEMINC IMM,2(D0 


J*RITE THE INTERRUPT TYPE 




C01547 




MICPC««ICPC+1 




k,!564t> 


t:l 6600 




<MOVE1WRMEMJINCMAR1IMMJ<200» 




^15642 






MEW BP,INCA!5P0 


rCOPY ACTUAL LINK ADDRESS 




KM 55P 









DHC1 

DOCK 



ODCMP PROTOCOL IMPLEMENTATION 
W,*AC 21-«PR-77 10:08 
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SfcLQSY-- ROUTlNETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 



PAGE: 0140 



£15642 


U62460 


<MOVE! WRMEMJ BHKINCA1SP0>> 




01 5644 




LDMA IMM,NXTSP 


; ADDRESS PTR INT STACK 




001551 


MICPC*MICPC+1 




f 15614 


£10241 


<MOVE!LDMARi IMM!<NXTSP<>377» 




<Ji 5646 




MEM IMM, INTSTK 


jASSUME WRAP AROUND 




301552 


MICPC«H1CPC+1 




L'15646 


302b42 


<MOVE i WPHEH 1 IMM J <INTSTK» 




91565k! 




BRWRTE IMM,«MMEND=2» 


{ADDRESS ENDOFINT STACK 




fc-01553 


MICPC»MICPC+1 




fl5650 


00O776 


<M0VE!WFTEBR!IMMl«MHEND-2»> 




S15652 




CMP BR,SP3 


f WRAPAROUND? 




bf>1554 


MICPC«MICPC+1 




S15652 


t»60363 


<SUBTCiSR!SP3> 




i 156a 1 




Z TDON40 


; YES— -BRANCH 




1)01555 


MICPC=M1CPC+1 




015654 


1 15560 


<JUMP!ZCOND!<TDON40-INITfc3000*4>l<TDON40-INIT&777/2» 


Ml 5656 




BRWRTE IMMf 2 


^OFFSET TO NEXT PAIR 




001556 


MICPC-HICPC+1 




CI 5656 


'700402 


<MOVE ! WRTEBR 1 1 MM t <2» 




f)15b60 




MEM BR,ADD15P3 


; UPDATE POINTER 




301557 


MICPC=MICPC+1 




015660 


062403 


<M0VE1WRMEM!BR!<ADD1SP3» 




015662 




TDON40: BRWRTE IMM, 20 


; WRITE INTERUPT PENDING 




001560 


HICPC B MICPC+1 




(315662 


000420 


<MOVE 1 WRTEBR J I MM I <20^^ 




215664 




SP BR,A0RB,SP1 


} IN PORT STATUS WORD 




601561 


MICPCsMICPC+1 




915664 


t-63301 


<MOVE ! SPX ! BR! AORB J SP1> 




015666 




LDMA IMM, ETC 


j ADDRESS NEXT EMPTY PTR 




001562 


mi6pc»micpc+i 




815666 




<M0V£1LDMAR! JMM!<ETC&3??» 




915670 




SP MEMX,SELB,SP0 


fCOPY IT TO SP0 




001563 


HICPC«MICPC+1 




015670 


043220 


< MO VE I SPX 1 MEMX ! SELB 1 SP0> 




IM5672 




LDMA IMM,STC 


(GET NEXT DONE PTR 




001564 


MICPC«=MICPC+1 




B15672 


010070 


<HOVE!LDMAR<IMM!<STC&377» 




f 15674 




CMP MEMX,SP0 


, IDENTICAL? 




001565 


HICPCcMICPC+1 




015674 


240360 


<SUBTCtMEMX!SP0> 




415676 




Z ' RH3 


)FINISH PROCESSING HEADER 




001566 


MICPCsMICPC+1 




015676 


105567 


<JUHP1ZCOND!<RH3-INIT&|000*4>1<RH3- 


INITt777/2» 


015700 




TD0N1: LDMA IMM,Ispl7 


t GET LAST ACKED 




001567 


MICPC«MICPC+1 




£15700 


S10155 


<MOVElLDMAR!IMM!<ISPt7*377» 




315702 




SP MEMX,SELB,SP17 


I STORE IT IN SP17 




301570 


MICPC«MICPC+1 


915702 


t-43237 


<M0VE!SPX!HEMX1SELB!SP17> 




B15704 




LDMA IMM,STC 


j GET START OF TMT CHAIN 




9!>15?1 


f!ICPC«MICPC*l 




»?15704 


010070 


<M0VE1 LDBAR! IMM J <STCti377» 




S15706 




LDMA MEHX,SELB!SPBRXJSP0 


(ADDRESS THE LINK 




001572 


HICPC*MICPC+1 




015706 


053620 


<H0 VEI LDMAP ! MEMXKSELB 1 SPBRX1 SP0» 





DMCll ODCMP PROTOCOL IMPLEMENTATION MACYt 1 30C1046) ll-JUL-77 12118 PAGE 12-24 PAGE: 0141 
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177 3 SJ15710 






BRWRTE MEMXi INCMARf SELB ; GET THE FLAGS 




001573 




HICPC*MICPC+1 


CI) k>15710 


£54620 




<M0VE1 WRTEBR i MEMXI INCMARI <SELB>> 


1774 «15712 






BR1 TD0N3 ; IFBUFFER ASSIGNED PR0CEE 




001574 




HICPC«HICPC+1 


M) 315712 


1 i 6532 






1 775 5*15714 






ALWAYS RH3 * * ;ELSE---EXIT 




001575 




MICPC»M1CPC+1 


(1) B15714 
177b 


1w45b7 




<JUMPJ ALCONDJ<RH3-INITi300»»4>i<RH3-INITs777/2» 


1777 015716 




ovrrun: 


BRWRTE IMM, 4 




001576 




MICPC«MICPC+1 


(1) 015716 


000404 




<M0VE! WRTEBR! IMM l<4» 


1778 »1572H 






ALWAYS NTRS0 




U01577 




HICPC»MICPC+1 


(1) »1572l) 
1779 


114671 




<JUMP:ALCOND:<NTRS0-INITt3000»4>i<NTRS0-INITfc777/2>> 


1780 




: inputs: 


1781 
1782 






SP0 * RECEIVE CHARACTER 


1783 015722 




PASWRDt 


SP IBUS>LN0SW,SP16 ; READ PASSWD SWITCH 




001600 




HICPC«H1CPC+1 


(1) »15722 


023336 




<M0VE1SPX1IBUS!LN0SW1SP16> 


1784 C15724 






Z 10$ ;IF ALL ONES NO RLD ENABLED 




001601 




MICPC»MICPC+1 


(1) k,15724 


1 15605 




<JUHPlZCOND!<l0S-INIT(3000»4>l<10S-INIT&777/2» 


1785 JM5726 






BRWRTE IMM, 6 ;CHECK FOR ENTER MOP MODE 




001602 




MICPC*MICPC+1 


CI) >*15726 


000406 




<M0VE1 WRTEBR] IMM 1<6» 


1786 !c'1573<? 






CMP BR,SP0 




001603 




MICPC=MICPC + 1 


(1) W1573P 


i?60360 




<SUBTClBRiSP0> 


1787 C1S732 






Z 20$ | IF EQUAL ENTER MOP 




e-n604 




MICPC=M1CPC+1 


CI) 015732 


1 15613 




<JU>4PiZCOND!<20S-INITfc3000*4>!<208-INITi777/2» 


1788 115734 




10S1 


BRWRTE BR,SELA!SP1 ; READ STATUS BYTE 




HI) 1 605 




MICPC"MICPC*! 


CI) 1/15734 


t*60601 




<M0VE1 WRTEBR! BR KSELA1 SP1» 


1789 ¥>15736 






BPSHFT jSHIFT IT RIGHT 




001606 




NICPC=HICPC + 1 


CI) M573o 


B01620 




<MOVEt SHFTBR! WRTEBR! SELB> 


1790 U5740 






BF1 RHX ; MESSAGE WITH NO BUFFER ASSIGNED 




001607 




HICPC«MICPC+1 


CI) 01574' 


1S6751 




<JUMP!BRlCON'<RHX-INITt3000»4>!<RHX-INIT4,777/2» 


1791 H5712 






BRSHFT ;SHIFT RIGHT AGAIN 




001610 




MICPC»M1CPC+1 


CI) -15742 


041620 




<MOVE! SHFTBR1 WRTEBR! SELB> 


1792 "J15744 






BP1 RCVM0 ;DLE RECEIVED IN NORMAL MODE 




P01611 




MICPC=M1CPC+1 


11) '01574 1 


1J6743 




<JUMP!BPlCON!<RCVM0-INITS3000»4>!<RCVM0-INITi77 7/2» 


1793 ilS746 






ALWAYS RK.3 • HANDLE MAIN I MODE MESSAGE 




.•"1612 




MICPC*M1CPC+1 


CD V15746 


1 J4601 




< JUMP! ALCOND!<RK3-INITSi3000»4>l<RK3-INlTi777/2» 


1 794 J1575i' 




20$: 


SP BR,DECA,SP4 >COUNT FOK NUMB OF COMPARES 




;--Hbl3 




MIC«>C«MICPCtl 


CI) C15751 






<M0VE!SPX!e>h!0ECA!SP4> 



DMC1 ! ODCMP PROTOCOL IMPLEMENTATION 
DDCNEW.MAC 21-APP-77 1014)8 



MAC XI I 30(1046) U-JuL-77 12H8 PAGE 12-25 

SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 



PAGE ! 0142 



1795 


815752 




STATE EH2 




( 1 ) 




01)1614 


HICPC«MICPC+1 




( 1 ) 


4?1 5752 


44097 46 


<MOVEJWHEBR! IMMI<EM2-INITt777/2» 




1796 


V>\ 5754 




ALWAYS REXIT 




( 1 ) 




04)1615 


HICPC*MICPC+1 




( 1 ) 


M 1 5 7 5 4 


1 04422 


<JUMpiALCONDi<REXIT-INITi3000«4>l<REXlT-INIT4777/2» 


1 797 


015756 




KCVMl; LDMA IMM,ISP11 


J ADDRESS SP11 IMAGE 


( 1 ) 




001616 


MICPC"NICPC+1 




11) 


015756 


013171 


<MOVE!LDMARi IMM ! <ISP1 1437 7» 




1 798 


1 5 7 6 f* 




HEN BR,DECA!SPH 


|COPK SPll 


( 1 ) 




301617 


MICPC=MICPC+1 




( 1 ) 


HI 5760 


06257 1 


<MQVE1 WRMEM iBRKDECA! SP1 1» 




1799 


15762 




LDMA IMM, NXTSP 




( 1 } 




301623 


MICPC«MICPC+1 




( 1 ) 


915762 


#10241 


<M0VE!LDMAR!IMM!<NXTSP6377» 




1800 


015761 




SP HEMXILDMAR,SELB,SP3 


jCOPY TO SP3 


( 1 ) 




W 1 6 1 1 


MICPC"MICPC+1 




( 1 ) 


615764 


£53223 


<M0 VE ! SPX 1 MEMX 1 LDMAR I SELB 1 5P3> 




1601 


015766 




MEMINC IMM, 204 


>RECEIVE DONE IMAGE 


( 1 ) 




001622 


MICPC*MICPC+1 




( 1 ) 


015766 


016604 


<MOVE! WRMEM! INCMAR! IMMI<204» 




18<)2 


015773 




MEM BRJLDMAP,SELA1SP14 


(COPY LINK ADDRMESS 


(1 ) 




001623 


M1CPC=MICPC+1 


( 1 ) 


,;i577;i 


072614 


<M0VE1 WPMEM! BR! LDMAR 1<SELA|SP14>> 




1 845 3 


P15772 




HEMINC IMM,0 


;ZER0 THE FLAGS 


(1) 




001624 


MICPC*M1CPC+1 




( 1 ) 


3*15772 


016400 


< MOVE J WRMEM < INCMAR J IMM J <0» 




1 804 


015774 




SP IBUS,I0BAl,SP4 


;GET BEGIN ADDRESS LOW 


( 1 ) 




4)01625 


MICPC»MICPC + 1 * 




( 1 ) 


01 5774 


023 1 44 


<M0VE1 SPX i IBUS ! I0BA1 J SP4> 




t 805 


Ifll 57 76 




SP IBUS,I0BA2,SP5 


> AND HIGH BITE 


( 1 ) 




001626 


MICPC«M1CPC+1 




( 1 ) 


f M 5 7 7 6 


823165 


<M0 VE 1 SPX 1 IBUS i I0BA2 J SP5>. 




1 806 


r I 6000 




SP MEMX1 INCMAR, SUB, SP4 


; SUBTRACT TO GET COUNT 


( 1 ) 




031627 


MICPC»MICPC+1 




f 1 ) 


316000 


057344 


<M0VE1 SPX1MEMXI INCMARJS»BJSP4> 




1807 


016302 




C 10$ ;IF 


CARRY SET THEN NO CARRY 1 


( 1 ) 




001630 


MICPC*MICPC+1 




f 1 ) 


1916002 


115232 


<JUMP1CCOND1<10*-INITS3000M>J<10»- 


INITS777/2» 


1808 


016004 




SP BR,DECA,SP5 jDECrEMENT HIGH BYTE OF ADDRESS 


(1) 




001631 


MICPC«MICPC+1 




(1 ) 


016004 


P63165 


<M0 VE I SPX 1 BR 1 DECA 1 SP5> 




1 809 


01 6006 




10$: SP MEMX! TNCMAR, SUB, SP5 


J SUBTRACT FOR COUNT 


(1 ) 




001632 


MICPC»HICPC+1 




( 1 ) 


4)16006 


057345 


<M0VE1SPX;MEMX!INCMAR1SUB!SP5> 




1810 


016013 




HEMINC BR,SELAISP5 


;COPY TO MEMORY LINK 


( 1 ) 




031633 


HICPC«MICPC+1 




(1) 


3164)10 


076605 


<M0VE1 WRMEM • INCMAR! BR KSELA ! SP5>> 








091634 


MEMINC BR,SELA1SP4 




(1) 




MICPC«MICPC+1 




(1) 


t>16«12 


076604 


<M0VEIWRHEHIIHCHAR1BR1<SELA1SP4» 




1812 


016^1 4 




BRHRTE IMM, 2 




( 1 ) 




001635 


MICPC«MICPC+1 




(1) 


016014 


000402 


<M0VE1 WRTEBRlIrtM><2» 




181 J 


016016 




LDMA IMM, NXTSP 


;ADORESS NEXT INI STACK 


(1) 




001636 


HICPC»MCPC+1 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 



HACY11 30(1046) 11-JUL-77 12118 PAGE 12-26 



DDC 


4LW 


MAC 21 


-*PR-77 10S08 


SELQSY- 


-ROUTINETOCHECK SELECT AND QSYNC AND 


DIDDLE LINE STATUS WORD 




1 ) 


-J16016 


010241 




<MOVE! LDMAR 1 IMM 1 <NXTSP6377» 




1 


314 


1)16020 






MEM BR,ADD1SP3 






1) 




001637 




MICPC*MICPC + 1 






1 ) 


3U02« 


P62403 




< MOVE i HRMEM 1 BR 1 < ADD 1 SP3>> 




1 


315 


*»16»22 






BRHRTE IMM,«MHEND-2» 


jADURESSEND OF INT STACK 




1 ) 




001640 




MICPC«MICPC+1 






1 ) 


0164,22 


00G776 




<MOV£! WRTEBR 1 IMM! <<MMEND-2>>> 




1 


316 


016024 






CMP BR,SP3 


J WRAP AROUND 




1) 




0»1641 




MICPC*MICPC+1 






1) 


016024 


360363 




<subtc:brjsp3> 




1 


317 


016026 






Z RMIFLP 


jIFYES-- BRANCH 




1) 




001642 




MICPC«MICPC+1 




1 ) 


016026 


1 15644 




<JUMP!ZCONDl<RMIFLP-INITS3000M>l<RMIFLP-INIT&777/2» 


1 


310 


4)16*33 






ALWAYS RMXl 






1 ) 




001643 




MICPC«MICPC+1 






1) 


016030 


1 14645 




<JUMP|ALCONDl<RMXl-miTfc300»*4>!<RMXl-INITi777/2» 


1 


319 


016*32 




rmiflp: 


MEM IMM, INTSTK 






1 ) 




001644 




MICPC*MICPC+1 






1) 


016032 


002642 




<MOVE 1 HRMEM 1 IMM ! <INTSTK» 




1 


320 


016034 




RMXl : 






1 


321 


016034 






LDMA INP,LRC 






1) 




001645 




MICPC«HICPC+1 






1) 


P16034 


010024 




<MOVE! LDMAR! IMM KLPCi377» 




1 


322 


P16036 






BRHRTE IMM, 5 


; INDEX TO NEXT BUFFER 




1 ) 




001646 




MICPC*MICPC+1 






1 ) 


016036 


900405 




<MOVEI HRTEBRl IMM1<5>> 




1 


323 


016040 






SP BR,ADD,SP14 


; UPDATE COPY OF POINTER 




tl) 




001647 




HICPC»M1CPC+1 






1) 


01604" 


063014 




<M0VE:SPX!BR!ADD1SP14> 




1 


324 


916*942 






BRHRTE IMM.STC 


; ADDRESS OF WRAP AROUND POINT 




1 ) 




001650 




HICPC«MICPC+I 






1 ) 


>>16042 


•300470 




<M0VE1 WRTEBR! IMM 1<STC>> 




1 


J 25 


W16044 






CMP BR,SP14 


1 WRAPAROUND? 




1) 




001651 




MICPC-MICPC+1 






1) 


W16044 


06v)374 




<SUBTC!BR1SP14> 




1 


326 


«16M6 






Z RMFLIP 


>IF YES— BRANCH 




( 1 ) 




031652 




MICPC"MICPC+1 






1 ) 


V16146 


1 15655 




<JUMPiZCOND!<RMFLIP-INIT(43000*4>!<RMFLIP-INIT&777/2» 


1 


'27 


016054) 






MEM BR,SELA!SP14 


J ELSE UPDATE THE POINTER 




1 ) 




001653 




MICPC»MICPC+1 




1) 


C16350 


062614 




<MOVE! HRMEM ! BR{ <SELA ! SP1 4>> 




1 


326 


■316052 






ALHAYS RMX 






CI ) 




001654 




MICPC«MICPC+1 






1) 


016052 


114656 




<JUMPlALCONDJ<RMX-INITfc3000»4>l<RMX 


-INITi777/2» 


1 


329 


916054 




RMFLIp: 


MEM IMM,RCLl 


(POINT TO FIRST LINK 




11) 




001655 




MICPC«M1CPC+1 






1 ) 


0I6H54 


007*25 




<MOVEIWPMFM! IMM!<RCL1» 




1 


334? 


016,1515 




RMXt 


BRHRTE IMM, 20 


; MASK FOR INTERUPT PENDING 




1 ) 




001656 




MICPC«MICPC+1 






1 ) 


tfl6<>56 


d40420 




<M0VE1 WRTEBR! IMM !<20>> 




1 


»ll 


0169>6J 






SP DP,A0R8,SP1 


} UPDATE PORT STATUS WORD 




1 ) 




("01657 




MICPC»MICPC+1 






1 1 ) 


•M606V) 


t»63 3.11 




<M0VE!SFX!DP!A0PB|SP1> 




1 


'32 


Wlbi. , 62 






bPWRTE DP,<SEL»!SP10> 


( READ LINE STATUS WORD 




t ) 




001660 




MICPC«M1CPC+1 






1 ) 


016362 


36<Sbl ,i 




<^OVE!ViPTEBPjr)P!<SELAISP10» 





PAGE ! 0143 



DMCll DDCMP PROTOCOL IMPLEMENTATION 
DDCNEa.MAC il-APR-77 10108 



MACY11 30(1046) H-JtjL-77 12S18 PAGE 12-27 

SELqsY—FOOTINETOCHECK SELECT AND QStnC AND DIDDLE LINE STATUS WORD 



PAGE! 0144 



If 1 6<i6 4 
016066 

316.J66 
016k.'7 1 

Clb070 
»16072 

(116072 
916074 

016074 
016*176 

#16076 
C16100 

016100 
U16102 

iil6102 
016104 
5»16104 

016104 
016106 



316110 
016112 



•M6112 
016114 



216114 
916116 



016116 
316123 



31612S3 
» 1 6 1 2 2 



316122 
S16124 



t?i6i24 
016126 



016126 
IB52 31613.1 



001661 
107015 



1)01662 
000400 



0*1663 
104422 



001664 
910154 



001665 
043620 



001666 
060400 



001667 
1 17176 



001670 
000401 



001671 
010177 



001673 
362620 



001674 
010241 



001675 
053223 



001676 
016601 



P01677 
9025 7 4 



001700 
010241 



001701 
002642 



001702 
300776 



BR4 FLUSH 
HICPC*M1CPC+1 

<JUWPlBF4CONl<FLUSH-INITS3000*4>!<FLUSH-INIT4777/2» 
RH1: STATE RCVA 
MICPC«HICPC+1 

<MOVElWFTEBRlIMMi<RCVA-INITS777/2» 

ALWAYS F.EXIT 
MICPC-M1CPC+1 

<JUMPlALCONOS<KEXIT-INITS,3000*4>l<REXIT-INIT4777/2» 
NTHRESS LDMA IMM, ST 
MICPC*HICPC+1 

<MQVE!t,DMAp!IMM!<ST£377» 

spbr mehx, selb.sp0 
micpc"m1cpc+1 

<moveispbrx!hehxiselb!sp0> 

brwrte bh,add!sp0 (shift left 

micpc«micpc+1 

<m0 ve 1 wfiebr ! br1 < add 1 sp0» 
br4 ovrrun 
micpc»m1cpc*1 

<jumplbf4conj<oyrbun-inits3000*4>j<ovrrun-init6777/2» 
brwrte imh,1 
micpc«h1cpc+1 
<move:wptebriimm;<i» 



J IF CLEAR ACTIVE SET— FLUSH 



ERRXX! 
NTRS0: 



NTRS1: 



LDMA IMH,«RTHRS+3» 
HICPC=H1CPC+1 

<MOVE}LDMAfi!IMM!«RTHRS+3>fc377» 

HEHINC IMM,0 

HICPCiHlCPCtl 

<KOVE t WRMEM i IrtCnARi IMw i <6» 

HEM BR.SELB 

MICPC*HICPC+1 

<MOVE! HRMEM{BRKSELB» 

LDMA IMM,NXTSP 

MICPC*HICPC+1 

<M0VE|LDMAR!IMM1<MXTSP&377» 
LDMA MEMX,SELB1SPX1SP« 
MICPC«MICPC+1 

<M0 VE I LOMAR ! MEMXKSELB 1 SPX J SP0» 
MEM INC IMM, 201 

MICPC«MICPC+1 

<MOVEt URMEM < INCMAR1 IMM1<201» 
MEM IMM,«RTHRS» 
HICPC«H1CPC+1 

<M0VE1 HRMEMi IMM! «RTHRS>» 
LDMA IMM,NXTSP 
MICPC«HICPCtl 

<MOVE! LDHAR1 IMM l<NXTSPi377>> 

MEM IMM.INTSTK 

MICPC«M1CPC+1 

<nOVE j whMEni IMn : <INT5f K>> 

BRWRTE IMM,«MMEND-2» 

HICPC«MICPC+1 

<NOVE! WRTEBR 1 IMM K<HMEN0-2>» 
CMP BR,SP0 



; ASSUME QUEUE WRAP AROUND 



DMCll DDCMP PROTOCOL IMPLEMENTATION MACYU 30(1046) ll-JUL-77 12tl8 PAGE 12-28 PAGE: 0145 



DDCNEW.MAC 2 


-APR-77 19JP8 


SELQSY- 


-routihetocheck select and QSYNC 


ADD DIDDLE LINE STATUS WORD 


( 1 ) 




001703 




MICPC=MICPC+1 




( 1 ) 


416130 


363360 




<SU8TC!BP!SP0> 




J 85 3 


016132 






Z NTRS2 


J IT DID WRAP AROUND 


(1 ) 




001704 




MICPC«MICPC+1 




(1) 


110132 


115707 




<JUMP!ZCOND!<NTRS2-INITi3000*4>l<NTRS2-INiT4777/2» 


IBS} 


016134 






BRWRTE Ihh,2 


j OFFSET TO NEXT PAIR 


(1) 




0017,1)5 




MICPC*M1CPC+1 




(1) 


016134 


000402 




<M0VE1 WRTE6RI IMMJ<2>> 




1855 


016136 






MEM BR,ADDJSPB 


} UPDATE QUEUE POINTER 


(1 ) 




001706 




MICPC=M1CPC+1 




(1) 


tl6136 


062400 




<MOVElNRMEMiBRKADDlSP0» 




1856 


0161 43 




NTRS2: 


BRWRTE IMM, 20 




(1) 




031707 




MICPC«MICPCtl 




( 1 ) 


(516140 


040420 




<M0VE1 WRTEBR 1 IMM S<20» 




1B57 


(416142 






SPBR BR,A0RB,SP1 




(1) 




001710 




MICPC«M1CPC+1 




(1) 


01614? 


063701 




<MOVEtSPBPX!BRlAORBlSPl> 




1858 


316144 






BR0 TAB1 


; FLAGGED BY ERROR TYPE 


(1 ) 




001711 




MICPC»M1CPC+1 




(1) 


116144 


116342 




<JUMPJBR0CONi<TABl-INITt3000»4>!<TABl-INIT4777/2» 


1859 


Jib 146 




SNAK: 


LDMA IMM,ISP11 




(1) 




001712 




HICPCaMlCPC+1 




( 1 ) 


••16146 


013171 




<H0VE1LDMAR!IMM!<ISP1U377» 




I860 


416150 






SP MEMX,SELB,SP11 




(1) 




001713 




MICPC«M1CPC+1 




(1) 


016150 


043231 




<M0VE1SPX!MEMXISELB!SP11> 




1861 


016152 






SP BR,INCA,SP11 


) INCREMENT MSG EXPECTED 


(1) 




001714 




HICPC*H1CPC+1 


(1) 


216152 


E63071 




<MOVEISPX!BRiINCAlSPll> 




1862 


016154 




SNAK1 : 


BRWRTE IMH,1 


I UNNUMB PENING BIT TO BR 


(1) 




001715 




HICPC»MICPC+1 


(1 ) 


016154 


000401 




<M0VE1 WRTEBR1 IMM!<1» 




1663 


01615b 




SNAK2: 


SP BR,AORB,SP10 


| UPDATE LINE STATUS WORD 


( 1 ) 




001716 




MICPC»M1CPC+1 


(1) 


016156 


063310 




<M0 VE ! SPX S BR 1 AORB 1 5P1 0> 




1B64 


316160 






ALWAYS FLUSH 
















(1) 
1865 


016160 


104415 




<JUMP1 ALCONDKFLUSH-INITt3000*4>!<FLUSH-INITfc777/2» 


1*66 


01bl62 




J 

emtrig: 


BRWRTE IMM. 24 




( 1 ) 




001720 




MICPC*M1CPC+1 




(1) 


016162 


000424 




<MOVE i WRTEBR! IMM ! <24» 




1867 


:I16164 






OUTPUT bR,<SELBSOBAl> 




( 1 ) 




001721 




HICPC»MJCPC+1 




( 1 ) 


(M6164 


062226 




<M0VEIWR0UTJBRKSELBJ0BA1» 




1B68 


<J161 66 






BRHRTE IMM,0 




(13 




P31 722 




MICPC«M1CPC+1 




( 1 ) 


<>16166 


000400 




<MOVEI WRTEBR} IMMI<0» 




1869 


016170 






OUTPUT BR,<SELB!0BA2> 




(t) 




141723 




HICPC*M1CPC + 1 




( I ) 


L1617vi 


4 62227 




<MOVE!«POUT!BRKStLBlOBA2» 






•1161 11 






SPBR 1BUS,BM873,SP0 


; READ BMg73 ADDRESS 


( 1 ) 




3»1724 




MICPC*MICPC+1 




( 1 ) 


516172 


£73743 




<MOVt!SPBRXiIBUSlBM873JSP0> 




i<m 


1 6 1 7 4 






OUTPUT BR,SEI,B!OUTOA1 


; SET UP LOk BYTE OF ADDRESS 


u ) 




*at?25 




MICPC3M1CPC + 1 





DMCll DDCMP PROTOCOL IMPLEMENTATION 
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MACYtl 
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10(1046) ll-JUL-77 12118 PAGE 12-29 

■ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 



PAGE I 0146 



i* 1 6 1 7 4 
016176 



<!16176 
016209 



016200 
016202 



£16202 
016204 



9t6204 

k>16?06 



016206 
»1621i» 



316210 
016212 



i)16212 
416214 



116214 
316216 



010216 
tU6223 



016220 
016222 



316222 
J16224 



016224 
016226 



016226 
ill 623d 



016230 
016232 



•116232 
SJ16234 



C16234 
016236 



H16236 
016249 



: i 

1890 



031726 
000766 



001727 
062223 



001730 
000421 



001731 
061231 



Ml 732 
B61230 



331733 
120600 



001734 
102372 



001735 
002662 



001736 
100765 



001737 
023640 



001740 
060400 



001741 
103445 



001742 
010156 



301743 
000402 



601744 
076670 



001745 
076611 



001746 

1»7b612 



301747 
076617 



;HIGH BYTE BASE FOR ROM BOOT 



j MASK FOR TIMER AND ALSO TO START NPR 



EMI j 



j READ NPR CONTROL 



<M0VE1 WROUT iBRi <SELB !0UTDA1>> 
BPWRTfc 1MM,366 
MICPC»M1CPC+1 
<MOVEl WPTEBP! IHM1<366>> 
OUTPUT BR,SELB!0UTDA2 
HICPC«MICPCtl 

<MOVE!WR0UTiBRl<SELBJOUTDA2» 
BRWRTE IMM.21 
MICPC«MICPC+1 
<M0VEIWRTEBRJIMM1<21» 
OUT BR,<SELBJOBR> 
MCPC*MICPCtl 

<M0VE!WP0UTXJBR!<SELBI0BR» 
OUT BR,<SELB10NPR> 
MICPCMICPC+I 

<M0 VE I WROUTX J BR 1 <SELB 1 ONPR» 
BRWRTE IBUS, NPR 
MICPC"MICPC+1 
<H0VE1 WPTEBR!IBUS1<NPR» 
BPB CKTIME 
MICPC*MICPC*1 

<JUMPlBR0CONKCKTIME-miIS3000»4>l<CKTIHE-INlTS777/2» 
HEHADR RM1 ; IF NPR DONE 

MICPC*MICPC+1 

<M0VElWRMEMJ<RMl-INIT&777/2» 

ALWAYS ACLOW 

MICPC=HICPC+1 

<JUNPlALCONDi<ACLOM-INIT£3000»4>l<ACLOH-INITi,777/2» 
TABUPD: SPBR IBUS, RC VCON , SP0 ; READ RECEIVER CONTROL REG 

MICPC*MICPC+1 

<M0VEJSPBRXUBUSlRCVC0Nl5Pe> 
BRWRTE BR,ADD1SP0 
HICPC»MICPC+1 

<M0 VE! WRTEBR • BR I <ADD J SP0» 
BR7 IDLE 
MICPC=MICPC+1 

<JUMPlBR7CONi<IDLE-INIT63e00%4>i<IDLE-INIT(777/2» 
LDMA IMM,IMG10 
MICPC»NICPC+1 

<HOVElLDMARIIMM<<IMG10t377» 
BRWRTE IMM,2 
MICPC*MICPC+1 
<M0VE1 WRTEBR! IHM ! <2» 

MEMINC BR, AANDB1 SP10 ;SAVE BIT 1 OF SP10 

MICPC»MICPC+1 

<M0 VE ! WRMEH 1 1 HCMAR t BR t <AANDB 1 SP1 0» 
MEMINC BR,SELAJSP11 >SAVE SP1 1 

MICPC»MICPC+1 

<M0 VE 1 WRMEM 1 1 NCMAR ! BRJ <SELA ! SP 1 1 » 
MEMINC BR,SELA!SP12 jSAVE SP12 

HICPC«HICPC+1 

<MOVE! WRMEM !INCMARJBRKSEl«AJ8P12» 
MEMINC BR, SELAISP17 ;SAVE SP17 

HICPC*HICPC+1 

<MOVE 1 WRMEM 1 INC MAR 1 BRKSELA 1 SP1 7» 

; 



;SHIFT LEFT 



; RECEIVE ACTIVE— IDLE 



TABl j 
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1 n 9 1 


016242 




STATE RB2 ,NOTE: THE BRG CANNOT BE CHANGED FROM THIS 


( 1 ) 




001750 


HICPC*M1CPC+1 


(l) 


316242 


003461 


<M0VE:hRTEBRS IMMi<RB2-INIT(i777/2» 


1892 






;POINT UNTIL THE BRANCH TO RB0 


1B93 


<Mt>244 




CMP BR,SP3 


(1) 




m>1751 


MICPC«MICPC+1 


(1) 


016244 


060363 


<SUBTC1BR!SP3> 


1894 


416216 




Z IDLE 


(1) 




1501752 


MICPC«MICPC+1 


(1) 

1895 


s-16246 


1»1445 


<JUMPJZCOND!<IDLE-INITfc3000»4>KIDLE-INITi7 77/2» 


1896 


J16 2S0 




; 

SP MEMXf SELBr SP1 3 


(1 ) 




001753 


MICPC«M1CPC+1 


( 1 ) 


416250 


043233 


<M0VE!SPX1MEMX1SELB!SP13> 


1897 


U16252 




PSTATE TBU1 ;NEW PORT STATE ADDRESS 


( 1 ) 


S16252 




HEM IMH,«TBUl-INITS777/2» 


(2) 




001754 


MICPC«H1CPC+1 


(2) 


tfl6252 


092775 


<M0VE1 WRMEM! IMMi«TBUt-INlTS777/2>» 


1898 


JU62S4 




SP IHM,4,SP4 ; INITIALIZE COUNT 


(1 ) 




001755 


MICPC*MICPC+1 


(1) 


S516254 


003004 


<M0VE1SPX1IMN14ISP4> 


1899 






jNOTE: FIRST 6 RAM LOCATIONS ARE NOT 


1904 






}T0 CORE TABLE. 


1901 


U16256 




LDMA IMMfBASE ; MAR NOW POINTS TO BASE 


(1) 




001756 


HICPC»M1CPC+I 


(!) 


W16256 


010017 


<M0VE1 LDMAR1 IMM}<BASE&377>> 


19«2 


*I6260 




ALWAYS RB0 ;THE BRG MUSI BE PRESET TO STATE RB2 


(1 ) 




301757 


MICPC«MICPC+1 


(1) 


H1626.I 


104443 


<JUMPlALCONDJ<RB0-INITt3000»4>KRB0-INITl777/2» 


190 3 


'416262 




EC2: BRWRTE IHH,2 , INCREMENT COUNT/TEST 


(1) 




001760 


MICPC»MICPC+1 


(1) 


016262 


000402 


<M0VE1 WRTEBRi IMM J <2» 


1904 


H16264 




SP BR,A0D,SP4 


(1) 




U01761 


MICPC»MICPC+1 


(1) 


016264 


U63004 


<M0VE1SPX1BR1ADD<SP4> 


19«>5 


B16266 




SP IBUS, I0BA1 , SP0 jPQINT TO NEXT ADDRESS 


(1) 




901762 


MICPC»MICPCtl 


(1) 


016266 


023140 


<MOVElSPXiIBUSlIOBAUSP0> 


19U6 


V>1627J 




OUTPUT BR, ADD10BAJ 


(1) 




f 0l7t>3 


M1CPC«MICPC+1 


( 1 ) 


J16270 


062*06 


<H0V£JWPOUT!Br!<ADDIOBA1» 


1907 


i-16272 




SP IBUS,IOBA2,SP0 


(1) 




041764 


MICPCsMICPC+1 


(1) 


fc>16272 


023160 


<MOVEISPX!IBUS!IOBA2tSP0> 


19«R 


UI6274 




OUTPUT BR,AC|0BA2 


(1 ) 




Ml 765 


MICPC»M1CPC+1 


(1) 


W16274 


H6210 7 


<M0VE1WP0UT!BRKAC10BA2» 


1 90<» 


01o?76 




C TABMXT 


( 1 ) 




0UI766 


MICPC*MICPC+1 


(1) 
191.< 


•i 1 6 2 7 1> 


MS373 


<JUMPiCCOND!<TABMXT-INITfc3000»4>i<TABMXT-iNIT&777/2» 


1 "! 1 


« 16 van 




ECX: BRWRTE BRILDMAR,SELAISP4 jRfcAU COUNTER 


(1 ) 




,»«1767 


HICPC*MICPC+l 


(1) 


»16 30 < 


S70604 


<M0VEIWHTEBP!BH1LDMAR!<SELA!SP4» 


191 7. 


M6 3v"? 




BR7 20S ; ALL DONE 


! k ) 




W17 ; a 


M!CPC*MiCPC+! 
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CI) 


016302 


1177 7 4 


<JUMPlBR7CONi<20$-INIT43000»4>!<20$-INIT&777/2» 


191 J 


916304 




output memxi incmar»selbioutoai jStore counts 


(1) 




301771 


MICPC=MICPC+1 


(1) 


L*1630t 


056222 


<MOVE! WR0UT1MEMXI INCHARI<SELB!0UTDA1>> 


1914 


1*16306 




OUTPUT MEMXi INCMAR,SELB(0UTDA2 


(1) 




001772 


MICPC»M1CPC + 1 


( 1 ) 


916306 


1356223 


<M0VE1 NROUT! MEMXi INCMARi<SELB10UTDA2» 


1 91 "> 


tH63l 1 




ALWAYS RK8 


( 1 ) 




001773 


MICPC»M1CPC + 1 


CI) 


9 1 6 3 10 


1 04641 


< JUMP J ALCONDi<RK8-INIT&3000*4>l<RK8-INIT&777/2» 


1916 








1917 


016312 




20S; LDMA IMM-PRTST 


C 1 ) 




001774 


HICPCMICPC+l 


CI) 


016312 


010162 


<M0VEILDMAR 1 IMM J <PRTST4377>> 


1918 


016314 




MEM BR,SELAJSP13 


CI) 




301 775 


MICPC=M1CPC+1 


CI) 


C16314 


£62613 


<H0 VE 1 WPMEM I BR I <SELA J SP1 3» 


1919 






IT uj VC DM4 


(1) 




001776 


MICPC»MICPC+1 


CI ) 


016316 


114662 


<JUMPJALCONDKRMl-IHITi 1 3000»4>!<RHl-INITi777/2» 


1920 


01632*1 




SZERO 


CI) 




001777 


KICPC»MICPC+1 


CI) 


316320 


000000 


000000 


1921 




000301 


.END 


ABS. 


1*16322 


000 





ERRORS DETECTED: 

,DDCHP/CRF/DS:CRf_DMCNEW,LOi»,DDCNE»( 
RUN-TIME: 5 8 SECONDS 
RUN-TIME FATIO: 70/13»5.1 
CORE USED; 6K (11 PAGES) 
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1669 
167H 



02800 
02900 



ftUGH SPEED (LOCAL) MICRO-CODE 
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5 .TITLE DMC-11 MICROPROCESSOR INSTRUCTIONS 

6 .SBTTL MACRO DEFINITIONS 

7 ; 

<3 .SBTTL REVISION 00 

9 .SBTTL FEBRUARY 25, 1975 

10 .SBTTL 

Jl .SBTTL REVISION 01 

!2 . SBTTL MARCH 18,1975 

13 .SBTTL NEW CSR BOARD CHANGES 

14 .SBTTL 

15 .SBTTL HARVEY H. SCHLESINGER 

16 f 

'.7 .SBTTL COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 

19 ; 
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2d 


000000 


NEbx0 


21 




;M1CR 


22 


300000 


MOVE»0 


23 


1 00000 


JUMPal 00000 


2* 


320H00 


IBUS320000 


25 




IMS=0 


26 


040000 


MEMXM0000 


71 


060000 


BRX&60000 


id 


360000 


BR=60000 


29 






3d 


£60000 


DPs60000 


31 


010000 


LDMAR310000 


32 


2)14000 


INCMARB14000 


33 


000400 


WRTEBR=400 


34 


541000 


WROUTX»1000 


35 


301400 


SHFTBRbI 400 


36 


002000 


MROUTs2000 


37 


002400 


WRMEM=2400 


33 


003003 


SPX=3000 


39 


003400 


SPBRXx3400 


40 




jFUNC 


41 




SELAz200 


42 


B00220 


SELB=220 


43 


C00240 


AORNBs240 


44 


000260 


AANDBx260 


15 


000300 


AORBs300 


46 


000320 


AXORBx320 


47 


&00340 


SUB-340 


48 


000360 


SUBTCa360 


4P 


000000 


ADDE0 


50 


003020 


ADDC=20 


51 


000040 


SUBC-40 


52 


000060 


INCA>60 


53 


0P0100 


AC*100 


54 


000120 


AAC120 


55 


00k?) 40 


AACH40 


56 






57 




; END 


58 


2>04000 


PAGE1 


59 


Bl0tS03 


PAGE2 


60 


B14003 


PAGE3 


61 


301I»00 


CCONDal000 


62 


1A\ 400 


ZCOND.1400 


63 


000433 


ALCOND=400 


64 


002000 


BP0CONx2000 


65 


&32103 


BR1CON=2400 


66 


3^3000 


BR4CON=3000 


67 


003400 


BB7CON»3400 
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OPCODE MOVE 
OPCODE JUMP 
SOURCE IBUS 
SOuRCVS IMMEDIATE 
SOURCE MEMORY 
SOURCE BR 
SOURCE BR 

SOURCE BR 
MA-LOAD MAR LO 
MA-INCREMENT MAR 
DEST-WRITE BR 
DEST-EXTEtiDED IBUS 
DEST-SHIFT BR LEFT 
DEST-WRITE OUTPUT 
DEST-WRITE MEMORY 
DEST-HRITE SP 
DEST-WRITE SP AND BR 

FUNCTION-SELECT A 
FUNCTION-SELECT B 
FUNCTION-A OR NOT B 
FUNCTION A AND B 
FUNCTION-A OR B 
FUNCTION A XOR B 
SUBTRACT 



FUNCTION- TWOS COMPLEMENT SUBTRACT 

ADD A+B 

A+B+CARRT 

A-B-C 

INCREMENT A 

A PLUS CARRY 
;A PLUS A 
;A PLUS A PLUS C 



CONDITION C 

jCONDITION Z 
; ALWAYS 

^CONDITION BR0 

; CONDITION BR1 

{CONDITION BR 4 

^CONDITION BR7 



DMC-11 
DffCHGH 
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70 
71 
72 
73 
78 
83 
83 
93 
98 
103 
108 
113 
114 
119 
124 
129 
134 
139 
144 
149 
150 
151 
152 
157 
162 
167 
172 
177 
186 
191 
196 
201 
206 
211 
220 
229 
234 
239 
244 
251 
255 



.SBTTL MICRO INSTRUCTION DEFINITIONS 
.SBTTL BRANCH INSTRUCTIONS 



JUMP=100000 



| JUMP OP CODE 



INDEXED BRANCH INSTRUCTIONS 



.SBTTL MOVE INSTRUCTIONS 

;MOVE OPCODE 
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INPUT/OUTPUT ASSIGNMENTS 




257 




.SBTTL IMPUT/OUTPUT 


ASSIGNMENTS 


258 




JIBUS ASSIGNMENTS 




259 


100000 


INCON=0+100000 


;IN CONTROL CSR 


260 


100020 


MAIN»20+i00000 


;MAINTAINENCE REGISTER 


261 


100040 


OCON»40+100000 


-OUT CONTROL CSR 


262 


100060 


UBADDR=60+100000 


;UHUSED 


263 


1 00100 


PORT1"100+100000 


;CSR4 


264 


100120 


PORT2»120+100000 


;CSR5 


265 


100140 


P0RT3* 140+ 100000 


;CSR6 


266 


100160 


PORT4»160+100000 


JCSR7 


267 


100200 


NPRx200+100000 


jNPR CONTROL 


268 


100220 


UBBR«220+100000 


; BR ( INTERRUPT) CONTROL 


269 


900000 


INDAT1S0 


; INPUT DATA LOW BYTE 


iU 


0000i0 


INDAT2=20 


I INPUT DATA HIGH BITE 


271 


000140 


IOBA1M40 


jOUTPUT BA LOW BITE 


272 


000160 


IObA2*160 


■OUTPUT BA HIGH BYTE 


273 


000100 


IIBA1«100 


; INPUT BA LOW BYTE 


274 


0*0120 


IIBA2»120 


; INPUT BA HIGH BYTE 


275 


900200 


RCVDAT=200 


.•RECEIVE DATA 


276 


000220 


TMTCON»220 


J TMTR CONTROL 


277 


00024^ 


RCVCONs'240 


;PCVR CONTROL 


278 


000260 


MODEM»260 


; MODEM CONTROL 


279 


000300 


SYNREGs300 


;SYN REGISTER 


280 


000320 


LNOSH*320 


| LINE NUMBER SWITCH 


281 


000340 


BM873»340 


;BM873 ADDRESS 


28 2 


000360 


LUMAINs360 


; LINE UNIT MAINTAINENCE 


283 




;OBUS ASSIGNMENTS 




284 




J EXTENDED OBUS 




285 


000000 


OINCONmB 


jIN CONTROL CSR 


286 


000001 


OMAIN-1 


;MA1NT 


287 


000002 


0OCONai2 


;OUT CONTROL CSR 


268 


£00003 


0UBADDC3 


fUNUSEO 


289 


@00»04 


0P0RT1S4 


;CSR4 


290 


000005 


0PORT2«5 


;CSP5 


291 


000006 


0PORT3»6 " 


;CSR6 


292 


000007 


OPORT4»7 


|CSR7 


293 


300010 


ONPRH0 


;NPR CONTROL 


294 


600011 


OBRsll 


J BR CONTROL 


295 




;UNEXTENDED OBUS 


296 


000002 


0UTDAH2 


;OUTPUT DATA LOW BYTE 


297 


000003 


0UTDA233 


jOUTPUT DATA HIGH BYTE 


298 


000026 


0BA1»6 


;OUTPUT BA LOW BYTE 


299 


003007 


0BA2»7 


•OUTPUT BA HIGH BYTE 


300 


000004 


IBA1C4 


}INPUT BA LOW BYTE 


301 


000005 


IBA2«5 


; INPUT BA HIGH BYTE 


332 


000012 


TMTDATslB 


} TMTR DATA 


303 


000011 


0TMTC0 = U 


; TMTR CONTROL 


334 


000012 


0RCVC0=12 


fRCVR CONTROL 


305 


P00013 


0M0DE«xl3 


; MODEM CONTROL 


3«6 


000014 


SYNC»14 


fSiU REGISTER 






OLUMAN*! 7 


J LINE UNIT MAINT. 
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339 
316 
323 
32S 
332 
336 
342 
348 
349 
350 



, SBTTL PROTOCOL DEPENDANT MACROS 



HICPCS177777 



jINIT MICRO PC 
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358 




.TITLE 


DMC11 OOCMP PROTOCOL IMPLEMENTATION 


359 




.SBTTL 


VERSION 00A FEBRUARY 26,1975 


360 




.SBTTL 




361 




.SBTTL 


HARVEY M. SCHLESINGER 


362 




.SBTTL 




J63 




.SBTTL 


COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 


364 




.SBTTL 




365 




.SBTTL 


VERSION k)0B MARCH 17,1975 


366 




.SBTTL 


CSR AND MICROPROCESSOR CHANGES 


367 




.SBTTL 




368 




.SBTTL 


VERSION 00C NOVEMBER 6, 1975 


369 




•SBTTL 


RETRANSMISSION CHANGES 


373 




.SBTTL 




371 




.SBTTL 


VERSION 00D DECEMBER 3,1975 


372 




.SBTTL 


TRANSMIT DONE CHAN6ES 


373 




.SBTTL 




374 




.SBTTL 


THE LATEST MODIFICATIONS MERE ADDED ONI 


375 




•SBTTL 


NOVEMBER 16, 1976 
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MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


377 






.SBTTL MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


373 






; ALLOCATION Or 


MICROPROCESSOR MAIN MEMORY 


379 


300000 




NAKSR'0 


;NAKS RBCD— DYNAMIC 


384 


000001 




NAKST«NAKSR+1 


fNARS THTED— -DYNAMIC 


381 


000002 




REPSR"NAKST+1 


(REPS RECD— DYNAMIC 


382 


000003 




REPST«PEPSR+1 


J REPS IMTED--DYNAMIC 


383 


000006 




NPzREPST+3 


(CONSTANT 


384 


000007 




NTLR-NP+1 


;NAKS-MSG NO BUFFERS CUMUL. 


385 


000010 




NHDR«NTLR+1 


(NAKS-MSG HEADER BAD 


386 


000011 




NDATR»NHDR+1 


; NAKS-PATA BAD 


387 


000012 




NTLSaNDATR+1 


JNAK SENT —NO BUFFERS 


388 


000013 




NHDS»NTLS+1 


) NAK SENT BAD HEADER 


389 


000014 




NDATS»NHDS+1 


(NAK SENT BAD DATA 


393 


U28015 






1 REPS SENT CUMUL 


391 


000016 




REPCR-REPCS+1 


(REPS RECD CUMUL 


392 


000017 




BASEaREPCR+1 


(CORE TABLE BASE ADORESS 


393 


000022 




SRC»BASE+3 


; START OF INPUT CHAIN — NEXT RECV DONE 


394 


030023 




ERC»*RC+1 


f END OF INPUT CHAIN 


395 


000024 




PCLl»ERCtl 


f RECEIVE LINK fl 


396 


000031 




RCL!«RCH+5 


f * ' »2 


397 


000036 




RCL3"RCL2t5 


» " #3 


398 


000043 




RCL4SRCL3+5 




399 


000050 




PCL5»RCL4+5 




400 


0000S5 




RCL6«RCL5+5 




401 


000062 




RCL73PCL6+5 




402 


000067 




STC»RCL7+5 


; START OF OUTPUT CHAIN— NEXT TMT DONE 


403 


000070 




ETC»STC+1 


; END OF TRANSMIT CHAIN 


4P4 


000071 




TML1«ETC+1 


; TRANSMIT LINK #1 


405 


000C77 




TML2»THLl+6 


; " #2 


406 


003105 




TML3«TML2+6 


i • »3 


4*7 


■4001 13 




TML4»TML3+6 




408 


800121 




TML5«TML4+6 




40 9 


000127 




THL6«TML5+6 




410 


000135 




TML7=TML6+6 




411 


M01 43 




TML8«TML7+6 




412 


0«JP15t 




TsTML8+6 


;TYPE FIELD 


413 


000152 




ST*Ttl 


(SUBTYPE FIELD 


414 


000153 




ISP17»ST+1 


(MSG ACKED IMAGE 


415 


000154 




IMG10«1SP17+1 


; IMAGE OF BIT 1 OF SP10 


416 


una 155 




1MG11«IMG10+1 


; IMAGE OF SP11 


417 


000156 




IMG12«IMG11+1 


; IMAGE OF SP12 


418 


000<57 




I«G14«IMG12+1 


; IMAGE OF SP14 


419 


000160 




IMG16«IMG14+1 


(IMAGE OF SP16 


420 


i)HP161 




I«G17»IMG16+1 


; IMAGE OF SP17 


421 


"00162 




TYPTABxlMGl 7 ♦ 1 


j TYPE TABLE— 


422 








(72 TYPE TABLE HEP 


423 








(73 " " NAK 


424 


030161 




TYPSTT.TYPTAB+2 


>74 " " START 


425 








(75 " " STACK 


126 










427 










428 


0«Ptb7 




bC=TYPSTT+3 


(RECEIVE BYTE COUNT 


429 


cue t7i 




ISPll«BCt2 


(SP11 IMAGE 


430 


<*t'fi\ 72 




1SP12=ISP11+1 


(SP12 IMAGE 


4 Jl 


CW2173 




lf:C0NSislSPl2 + 1 


;1N CONTROL CSR IMAGE 


432 






hTHR5aIKC0NS+! 


• RECV THRESHOLD LINK 



DMCH DDCHP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 10:16 



MACYU 30C1046) ll-JuL-77 12:25 PAGE 6-2 
MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 



PAGES B160 



433 
434 
435 
436 
437 
438 
439 



; ALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 



00021*) 
Z 802 11 
900240 
001)241 
034242 

000400 



TABST«210 

PRTST=TABST+1 

NXTINT=240 

NXTSP=NXTINT*i 

INTSTK.sNXTSP+1 

MMEND:M00 



» TABLE UPDATE STATE 
I PORT STATE 

J NEXT INTERRUPT POSITION 

i end of interupt chain 
; stack of interupts 
j main memory end 
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SCRATCH PAD ASSIGNMENTS 


442 




.SBTTL 


SCRATCH PAD ASSIGNMENTS 


443 


000300 


SP0=0 


JSP0— SCRATCH REGISTER 


444 


e00001 


SP1 = 1 


»SP1— PORT STATUS WORD 


445 






(BIT ASSIGNMENTS 


446 






,BIT0— INIT MODE 








;BITi--SE£ STATION SELECT ( UNUSED) 


448 






JBIT2--N0 BUFFER ASSIGNED IN BOOT MODE 


449 






JBIT3--DLE RECEIVED WHILE NOT IN MA1NT MODE 


450 






;BIT4— INTERRUPT PENDING 


451 






;BIT6— DISCONNECT ERROR 


452 






;BIT7«B00T MODE 


453 


000002 


SP2»2 


JSP2— TRANSMIT STATE POINTER 


454 


000003 


SP3«3 


|SP3— RECEIVE STATE POINTER 


455 


030004 


SP4M 


|SP4— END RECV ADDRESS 


456 


000005 


SP5«5 


;SP5— END RECEIVE ADDRESS 


457 


000006 


SP6=6 


;SP6 END TRXNSHIT ADDRESS 


458 


300007 


SP7»7 


>SP7— END TRANSMIT ADDRESS 


459 


000010 


SP10S10 


JSP10— LINE STATUS WORD 


460 






jBIT ASSIGNMENTS 


461 






;BIT0— UNNUMB PENDING 


462 






iBITl— MESSAGE IN PROGRESS 


463 






JBIT2— LINE HAS GONE IDLE 


464 






JBIT3--START RECEIVED 


465 






JBIT4— CLEAR ACTIVE ON END 


466 






; BIT5--START MODE 


467 






;BIT6— HALF DUPLEX 


468 






|BIT7«0K TO SEND 


469 


900011 


SP11»11 


[SP11---R FIELD 


470 


000012 


SP12»12 


;SP12 N FIELD 


471 


000013 


SP13X13 


»SP13— TYPE 


472 


000014 


SP14=14 


|SP14— RECEIVE LINK IMAGE 


473 


P04015 


SP15=15 


JSP15— TIMER ENTRY— NUMBER OF ONE SECOND TICKS 


474 


000016 


SP16«16 


;SP16— POINTER TO TMT LINK COPY IN MAIN MEM 


475 


000017 


SP17»17 


;SP17— LAST MESSAGE ACKNOWLEDGED 
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ei62 



477 






, SBTTL INIT— INITIALIZATION ROUTINE 


479 






; ZEROS MAIN MEMORY 




479 






(LOOPS WAITING FOR RECEIVE DATACBOOT?) 


484 






(OR FOR RQI TO BE SET 




4S1 
482 






;WILL ACCEPT ONLY BASE FORMAT, 


ALL OTHERS MILL RETURN A PROCEDURE ERROR 


483 






J AT INITIALIZATION — THE HARDWARE CLEARS THE BR AND MAR 


484 




016322 


.116322 




485 


•16322 




INIT: SP BR,SELB,SP0 


;CLEAR SP0 


(1) 




000000 


MICPC=MICPC*1 




(1) 


016322 


063220 


<MOVE!SPX!BR1SELBISP0> 




486 


016324 




SP 8R,SELB,SP3 


; PAGE ONE TRANSFER ADDRESS 


(1) 




000001 


MICPC=MICPC+1 




(1 ) 


£16324 


063223 


<M0VE!SPX!BR1SELB1SP3> 




487 


016326 




SP BR,SELB,SP17 


;CLEAR SP17 


(1) 




01)3002 


MICPC«MICPC+1 




CI) 


ei6326 


063237 


<M0VE!SPXSBR!SELBlSPi7> 




488 


016330 




OUT BR,<SELAI0INC0N> 


;ZERO THE IN CONTROL CSR 


( 1 ) 




£00003 


MICPC*MICPC+1 




( t } 


016330 


061200 


<MOV£!WROUTX!BRi<SELA10INCON» 




489 


016332 




OUT BR,<SELA|OOCON> 


;ZERO THE OUT CONTROL CSR 


(1 ) 




000004 


HICPCsMICPC+1 




CD 


B16332 


061202 


<M0VEJWR0UTX1BRI<SELA!00C0N» 




490 


016334 




SP IMM,370#SP10 


; WRITE 5 ONE BITS TO THE HIGH ORDER 


CI) 




000005 


MICPC«MICPC+1 




C I ) 


316334 


003370 


<M0VE1SPX! IMM! 3701 SP10> 




491 








(BITS OF SP10 


492 


ei6336 




5$: SP BR,AA,SP10 


[SHIFT SP10 LEFT SETTING CARRY THE 


C 1 ) 




000006 


HICPC*MICPC+1 




CI) 


V16336 


063130 


<MOVE1SPXJBR1AA!SP10> 




493 








; FIRST 5 TIMES THRU THE LOOP 


494 


el634v» 




HEMINC BR,ADDC!SP3 


; WRITE A ONE TO THE FIRST 5 MEMORY 


CI) 




030007 


MICPC*MICPC+1 




CI) 


116343 


076423 


<MOVE! WRMEM ! INCMAR J BRKADDC 1 SP3» 


495 








(LOCATIONS AND ZERO THE REST 


496 


1*16342 




SP BR,INCA,SP0 


; INCREMENT COUNTER 


CI) 




000010 


«ICPC»MICPC+1 




CI) 


£16342 


063060 


<NQVE1SPX1BR1INCA|SP0> 




497 


K16344 




Z 10$ 


; ALL DONE 


CI) 




3H3011 


MICPC»MICPC+1 




CO 


016314 


101413 


<JUMPlZCOND{<10»-INITt300fl»4>l<10»-INITS777/2» 


498 


K16346 




ALWAYS 5$ 


; KEEP GOING 


C 1 ) 




000012 


MICPC«M1CPC+1 




CD 


£16346 


100406 


<JUMPJ ALCONDJ<5$-INITSi3000«4>l<5$-INIT6777/2» 


499 


016350 




10$: SPBR IMM,1,SP1 


j WRITE A 1 TO THE BR AND SP1 


C 1 ) 




003013 


MICPC»MICPC+1 


CD 


216350 


003401 


<M0VE!SPBRX1IMM11 !SP1> 




50-9 


016352 




SP BR,SELB,SPll 


J WRITE A 1 TO 5P11 


CD 




090« 14 


MICPC*MICPC+1 




CD 


616352 


063231 


<MOVEi SPX1BR1 SELB J SP1 1 > 




541 


£16354 




SP BR,SELB,SP12 


! WRITE A 1 TO SP12 


CD 




000015 


MICPC«MICPC+1 




C 1 ) 


016354 


063232 


<M0VE!SPX!BR1SELB!SP12> 




542 


016356 




LDHA IMM,TYPTAB 


(POINT MAR TO TYPE TABLE 


CD 




000016 


MICPC*MICPC+1 




CD 


C16356 


010162 


<MOVE:LDMARlIMMS<TYPTABi377>> 
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503 


316360 




bRWRTE IMM, 226 


( WRITE SYNC TO MEMORY 


CD 




000017 


MICPC»M1CPC+1 




CD 


t 16360 


b00626 


<MOVE! WRTEBR1 IMMi <226» 




501 


016362 




OUTPUT BR,SELB1SYNC iLOAD THE SYNC REGISTER 


CD 




000020 


MICPC»MICPC+1 




( 1 ) 


416362 


062234 


<MOVElWR0UT!BRi<SELBlSXNC» 




505 


816364 




MEM INC IMM, 3 


;REP 


CD 




040021 


MICPC»H1CPC+1 




C 1 ) 


616364 


016403 


< HOVE! WRMEM 1 INCMAR 1 IMMJ<3>> 




506 


216366 




MEM IMM, 2 


(NAK 


CD 




000022 


MICPC»MICPC+1 




CD 


016366 


002402 


<M0VE!WRMEM!IMM!<2» 




CD 




040023 


MICPC«M1CPC+1 




CD 


016370 


057235 


<HOVE!SPX!MEMXi INCMAR! SEtB!SP15> 


508 


016372 




HEMINC IMM, 6 


(START 


CD 




300024 


HICPC«MICPC+1 




CD 


316372 


016406 


<M0VE1WPMEM! INCMAR SIMM1<6» 




509 


« 16374 




MEMINC IMM, 7 


(STACK 


C 1 ) 




009025 


MICPC«MICPC+1 


CD 


316374 


016407 


<MOVEi WRMEM! INCMAR! IMM1<7» 




510 


•16376 




MEMINC IMM.l 


;ACK 


C 1 } 




000026 


HICPC«MICPC+1 




CD 


M6376 


016401 


<MOVE| WRMEM 1 INCMAR 1 IMM! <1>> 




511 


$16400 




LDMA IMM, TABS! 


; POINT TO TABLE UPDATE STATE 


CD 




000027 


MICPC«M1CPC+1 




CD 


01640/1 


010210 


<MOVE! LDMAP ! IMM J <TABSTfc377>> 




512 


$16402 




PSTATI 13 


; INITIALIZE IT 


C 1 ) 


Sllb402 




MEMINC IMM,«I3-INITS777/2» 




C2) 




000030 


MICPC«MICPC+1 




(2) 


916402 


516460 


<M0VE1 WRMEM! INCMAR! IMM!«I3-INITlk777/2>» 


5U 


016404 




PSTATI NIDLE2 


(INITIALIZE PORT STATUS 


CD 


016404 




MEMINC IMM,<<NIDLE2-INITfc777/2» 


C2) 




000031 


MICPC»MICPC+1 




C2) 


£16404 


016533 


<MOVE! WRMEM! INCMARJ IMM!«NIDLE2- 


INITfc777/2»> 


514 


916406 




LDMA IMM,STC 


( LOAD ADDRESS OF LAST TMT CHAIN 


CD 




490032 


MICPC«MICPC+1 




CD 


016406 


010057 


<MOVE!LbMAP!IMM!<STC».377» 




515 


016410 




MEMINC IMM, TML1 


;STORE ADDRESS OF FIRST TMT LINK 


CD 




000033 


MICPC=M1CPC+1 




CD 


krl6114 


016471 


< MOVE! WRMEM ! INCMAR! 1MMKTML1>> 




516 


016412 




MEM IMM,TML1 




C 1 ) 




000434 


MICPC=M1CPC+1 




CD 


016412 


002471 


<MOVE! WRHFM! IMM!<TML!» 




517 


316414 




SP MEMX,SfcXB,SP16 


; INITIALIZE LAST XMIT POINTER 


C 1 ) 




J4»)435 


MICPC=H1CPC+1 




C 1 ) 


•i 1 6 4 1 4 


043236 


<M0VE1SPX!MEMX!SELB!SP16> 




518 


016416 




LDMA IMM, SRC 


; LOAD ADDRESS OF LAST RECV CHAIN 


( 1 ) 




04^036 


MICPC«MICPC+1 




C 1 ) 


016416 


010*22 


<MOV£!LUMAR! lMM!<SRCi377» 




519 


016420 




HEMINC IMM,RCH 


:SET UP ADDRESS OF FIRST RECV LINK 


( 1 ) 




000437 


MTCPC«M1CPC*1 




C I ) 


J1642 t 


516124 


< Mb VE JWPMEM! INCMAR! IMM KRCH» 




520 


s»l6!22 




MEM IMM.RCLl 




1 1 ) 




B»i*»<44 


MICPg«MICPC+l 




Mi 


4M6 122 


U42124 


<MOVE! WRMEM' IMM! <PCL1» 
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521 


016424 




SP MEMX* SEL8# SP1 4 






000v4 1 




CI} 




£4 3234 


^MDUCI CDV 1 ui'UY 1 err Dl COl 


522 


81 6426 




LDMA IHM/NXTIfJT * f ADDRESS OF NEXT IN TERRUPT PQ I ft TCP TO MAR 


' ' 




1^*52 4 2 


H n, rW"P it rv. T X 


C 1 ) 




0102 40 




523 


016430 




HEM INC IMHplNTSTK j INITIALIZE NEXT INTERRUPT PO I NTER 


CI) 




U£0043 




CI) 


016430 


i?t DO $2 


<M0 VE I MR HEM 1 INC MAR J 1 MM 1 K I NTSTK^^ 


t \ 


016432 




MCU TMM TlITCTk ■ f M 1 T T & T T t IT 1 UCCDTlflN DniUTPD 


( 1 ) 




300044 




CI) 


31 t>43 2 


002642 


<M0 VE • WRMEM 1 1 MM 1 <INTSTK>> 




816434 




wRMnTE IMH,200 ;WRXT£ THE RUN BIT TO THE BR 


CI) 




090045 


MICPC«MICPC+1 


CI) 


Si 


000600 










niiT no /cpt.b i nu a T >udttf twit diim BTT Tfl IfATNT PCD 

UUl Dlf f ^OCiLlO i UPlMAH? JtlKl i t [net nUn OX X 1U UXH1 LOP 


CI) 




0900 46 


MICPC*M1CPC+1 


CI) 


016436 


061221 


<M0VE{ WROUTXi BR ! <SELB!OMAIN>> 


527 






; FALL INTO IDLE LOOP 


529 


016440 




ALWAYS TE0M2 


CI) 




04)0647 


MICPC«H1CPC+1 


CI) 


ei6440 


110740 


<JUMPlALCONDi<TEOM2-INITt3000*4>KTEOM2-INITS777/2» 


530 
531 


016442 




J 

REXIT: SP BR,SELB,SP3 


CI) 




000050 


HICPC=MICPC+1 


CI) 


016442 


063223 


<M0VEJSPX1BR{SELB!SP3> 
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idle- 


•PROGRAM IDLE LOOP 


534 








, SBTTL IDLE— PROGRAM IDLE LOOP 


535 








J PROGRAM IDLE LOOP 


536 








JDISPATCHES TO APPROPRIATE SERVICE ROUTINES 


537 








;USES STATE POINTERS FOR TMTr RCV,C$R ACTIVITI 


533 
539 


916444 




idle: 


S 

BRWRTE BR,<SEIi«!S?10> ' »READ TRANSMIT STATUS WORD r ROM SP10 TO 


( 1 ) 




000051 




MICPC«M1CPC+1 


CI) 


016444 


060610 




<MOVE! WRTEBR! BRKSELAI SP10>> 


540 


416446 






BR1 TMTDA ;IF DATA TO SEND— BRANCH 


CI) 




000052 




MICPC«MICPC+1 


(1) 


316446 


112400 




<JUMPJBRlCONi<THTDA-INIT43000»4>KTMTDA-INITi777/2» 


541 


616450 






BR0 TMTDA } IF DATA TO SEND— BRANCH 


( 1 ) 




090053 




MICPC«M1CPC+1 


(1) 


316450 


1 12000 




<JUMPlBP0CONl<TMTDA-INITS3000«4>l<TMTDA-INIT4i777/2» 


547 


=516452 




ii: 


faRHRTE IBUS,RCVCON J READ LINE UNIT RECEIVE CONTROL WORD 


(1) 




000054 




MICPC«MICPCtl 


f 1) 


016452 


020640 




<M0 VE 1 WRTEBR J IBUS 1 <RC VCON» 


548 


016454 






.BR4 BR,SELA,SP3:PAGEl ; BRANCH BASED UPON RECV STATE 


CI) 




000055 




MICPCsMICPC+1 


CI) 


016454 


167203 




<JUMP( BR4C0N{BR1SELA!SP3!PAGE1> 


549 


016456 




12: 


LDMA IMM, TABST ;POINT TO TABLE UPDATE STATE 


(!) 




000056 




MICPC"H1CPC»1 


CI) 


016456 


010210 




<M0 VEi LDMAR J IMM 1 <TABSTS37 7>> 


550 


416461* 






. ALWAY MEMX>SELB>0 


C 1 ) 




000057 




MICPC«MICPC+1 


(1) 


16460 


1 40620 




<JUMP!ALCOND>MEMXtSELB10> 


551 


016462 




13: 




553 


<*16462 






STATE TMTAt2 ; GET IDLE TRANSMIT STATE + 1 


(1) 




000060 




MICPC»MICPC+1 


CI) 


916462 


000404 




<MOVElNRTEBRlIMMl,<TMTAt2-INin777/2» 


554 


516464 






NOP BR,SUB,SP2 ; SUBTRACT FROM CURRENT STATE 


CI) 




000061 




MICPC«MICPC+1 


CI) 


016464 


060342 




<BRlSUBiSP2> 


555 


f 1646b 






C TMTDA ;NON-IDLE STATE 


(1) 




030062 




HICPC=M1CPC+1 


CD 


016466 


1 1 1009 




<JUMP!CCOND!<TMTDA-INIT&3000*4>l<TMTDA-INITh777/2» 


557 


016470 




IDLE0 


• SPBR IBUS.IIBBR.SP0 :TIHER EXPIRES? 






000063 




MICPCsMICPC+1 


CI) 


K1617J 


123620 




<M0 VEl SPBRX i IBUS 1 UBBR I SP0> 


558 


016472 






BF4 TIMSRV 


(1) 




30046 4 




HICPC=M1CPC+1 


CD 


016472 


113255 




<JUMP!BR4CON!<TIMSRV-INITfc3000*4>!<TIMSRV-INlT&777/2» 


553 


216474 






SP IBUS,RCVCON,SP0 ;READ THE RECEIVE CONTROL REGISTER 


(1) 




000065 




MICPC»M1CPCU 


CD 


016174 


C23240 




<MOVESSPXJIBUS1RCVCONJSP0> 


560 


316476 






BRWRTE bR,AAJSP0 ;SHIFT IT LEFT 


CD 




000066 




MICPC«M1CPC+1 


CD 


B16476 


060520 




<MOVE1WRTEBR1BRKAA1SP0» 


561 


416504 






6R7 11 J RECEIVE ACTIVE, DON'T DO PORT STATUS 


CD 




00<Wb7 




M1CPC=M1CPC+1 


(1) 


91650." 


1 03454 




<JU"P1BK7C0N J<H-INIT43000«4>J<ll-INIIi77 7/2» 


562 


016502 






LDMA 1MM,PRTST ; ADDRESS PORT STATE 


CD 




tj 40070 




MICPC«MICPC+1 


CD 


«!16502 


HI 0211 




<MOVLlLDMAR!IHhi<PRTSTfc377» 


563 


016534 






.ALnlAV MEMX,SELB,0 ;INDEX 


CD 




000<}71 




M1CC = HICPC + 1 
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(1) nl650* 140629 <JUMPJALCONDSMEMX'SELB10> 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCHGH. W AC 21-APR-77 10J16 



MACYll 30(1046) 11-JUL-77 12:25 PAGE 6-9 
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PAGE! 0167 



565 
566 



H51650O 
316506 



£16506 
016510 



91651,3 
016512 



P16512 
H16514 



•16514 

016516 



016516 
016520 



016520 
J16522 



016522 
016524 



416524 
016526 



016526 
016530 



016530 
016532 



(■16532 
616534 



016534 
016536 



H16536 
,M654n 



01654.) 
016542 



«16542 
SlbM4 



•16544 
k)1654b 



91654b 
? I 6550 



000072 
002533 



303073 
010017 



000074 
136500 



000075 
136520 



000076 
122560 



000077 
123000 



000100 

000500 



000101 
061260 



000102 
£02133 



000103 
040620 



000104 
103113 



000105 
ft 01 51 



000106 
316406 



000107 
("02700 



Pt»01 10 
06 3161 



?<10111 
Mb 41 



0IMI12 
11373/ 



3H31 1 3 



, SBTTL BASSRV-— BASE SERVICE ROUTINE 
PSTATE N IDLES 

HEM IMM,«NIDLE2-INIT«,77T/2» 
MICPC"MICPC+1 

<M0VEJI«PMEMlIMHI«NIDLE2-IKITt777/2»> 
LDHA IMM#BASE 
MICPC»M1CPCU 

<M0VE1LDMARUHMKBASE4377» 

MEHINC IBUS,P0RT1 ; READ CSR4 

MICPCiHICPC+l 

<M0 VE I WRMEM I INCHAR 1 IBUS I <PORT 1 » 
MEHINC IBUS,P0RT2 ; READ CSR5 

MICPC-MICPC+1 

<MOVfcl WRMfcMi iNCMARJ iBUSi<P0RI2» 

mem ibus,p0rt4 
hicpc*h1cpc+i 
<hoveiwpmem:ibuskport4» 
sp ibus, incon,sp0 

MICPCeMlCPC+1 
<HOVF'SPX!IBUS13NCON1SP0> 
BRWRTF IMM,100 
HICPC=M1CPC+1 
<MOVEIKRTEBR1IMMJ<100» 
OUT BR,<AANDB10INC0N> 
MICPC»MICPC+J 

<M0VE!MR0UTXlBRi<AANDB10INCOM» 
OUTPUT IMM,<120iONODEM> 
MICPC»M1CPC+1 

<MOVElMPOUT<IMMK120iOMODEM» 
brGrte MEMX, SELB 
MICPC»MICPCtl 
<MOVE! hRTEBRl MEMXKSEbB>> 
BR4 RESUME 
MICPC»M1CPC+1 

<.lUMP!BR4CONKRESUME-INIIC,3000«4>!<RESUME-INlTfc777/2» 



(CLEAR TO MAR SO IT POINTS TO BASE POINT 



; READ INPUT CONTROL CSR 



jCLEAP THE BR 



; CLEAR THE 1NC0NTR0L CSR 



;MASK FOR HDX AND DTR 



; READ SEL6 



flf SET RESUME 



LDMA IMM,T 
MICPC«MICPC+1 
<M0 VE1 LDMARl IMM KTfc377>> 
MEHINC IHH,6 
MICPC*MICPC+1 

<M0VElMPMEMiINCMARlIMM|<6» 
MEM IMM,300 
HICPC»MICPC+i 
<MOVElhRHEM< IMM|<300» 

SP BR,DECA,SPi ; TURN OFF 1NIT MODE 

MICPC»H1CPC*1 
<M0VEISPX1BR10ECAISP1> 
BRMRTE IMM,241 
MICPC*M1CF'C*1 
<M0VESWRTEBRJTMMJ<241>> 
ALWAYS SA3 
MICPC»hlCPC+l 

< JUMP I ALCONDJ<S»3-INIT43ii!00»4>!<5A3-lNITfc77 7/2>> 

SP 1MM,SP4,4 (SET UP SP4 FOR COUNTING NPKS 

KICPCshlCPC+1 

«yi/vt!st *;i u k;sp4!4> 



> LOAD ADDRESS OF TYPE FIELD 



;WRITE START TYPE TO MEMORY 



; WRITE SELECT AND FINAL TU MEMORY 



J SET OK TO SEND,S1AKTM0DE AND UNNUM PENDING 



0MC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCKGH.MAC 21-APR-77 iBjia 



MACY11 3(*Clk54b J ll-JUL-77 12:25 PAGE 6-10 
BASSRV-- — BASE SERVICE ROUTINE 



PAGE I 0168 



584 


016552 




SP BR,INCA,SP10 


;SET UNNUHB MESSAGE PENDING TO 




CI) 




000114 


M1CPC«M1CPC+1 






(1) 


H16552 


063070 


<MOVE!SPXlBRlINCAiSP10> 






585 








fTRICK TRANSMITTER CODE 




586 


816554 




LDMA IMri,BASE 


i ADDRESS BASE TABLE ADDRESS 




(1) 




038115 


MICPC*MICPC+1 






(1) 


016554 


01 9017 


<M0 VE 1 LDMAR > INH • <BASES377» 






587 
( i ) 


1416556 


0001 lb 


STATE FUDGE 
HICPCsMICPC+i 


: SET TMTR STATE TO ENTER TABLE 


UPDATE 


(1) 


HM6556 


000743 


<MQVE J ViPTEBR J IH« KFUDGE-INITS.777 /2» 




588 


016560 




ALWAYS T80 


;G0 SET UP MXT BITS AND ADRESS 


OF BASE 


(1) 




0*0117 


MICPC««ICPC+1 






( S ) 


016560 


1 104SS 


<JUMP1 ALCONDS<TB0»INITS3800e4> j< 


T8@-lNIT&777/2» 




589 


316562 




BS2: LDMA " IMM.IMG10 






(1) 




0*31 20 


HICPC=MICPC*1 






CI) 


016562 


etai54 


<MOVEILDMARIIMMKIMG10S377» 






59a 


016564 




SP MEHX1INCMAR,AORB,SP10 


; RESTORE BIT 1 OF SP10 




CI) 




000121 


MICPC»MICPC+1 






CI) 


016564 


057313 


<HOVEiSPX!MEMXiINCMARJAOR8lSP10> 






591 


■16566 




SP MEHX1 INCMAR, SELB, SP1 1 


f RESTORE SP11 




CI) 




000122 


MICPC=MICPC+1 






cn 


P16566 


057231 


<M0VE!SPX!MEHX1INCMAR1SELBISP11> 






592 


016570 




SP MEMX!INCMAR,SELB,SP12 


; RESTORE SP12 




CI) 




000123 


MICPC=MICPC+1 






CI) 


816570 


057232 


<MOVE 1 SPX 1 MEMX 1 INCMARJ SELBJ SP1 2> 






593 


B16572 




SP HEMXi TNCMAR,SELB,SP14 


j RESTORE SP14 




Ct) 




090124 


MICPC»MICPC+1 






CI) 


816572 


057234 


<H0VEISPX1MEMX1INCMAR1SELBISP14> 






594 


016574 




SP MEMX1 INCMARf SELB, SP16 


f RESTORE SP16 




CI) 




000125 


MICPC=M1CPC+1 






CI) 


316574 


057236 


<H0VEJSPX:HEHXiINCMARlSELBJSP16> 






595 


016576 




SP MEHX, SELB,SP17 


{RESTORE SP17 




CI) 




000126 


HICPC«»ICPC+1 






CI) 


816576 


343237 


<M0VE!SPX!MEMX!SELBISP17> 






596 


31660k) 




SP BR,DECA,SP10 


•TURN OFF UNNUM MESSAGE PENDING 


AND 


CI) 




800127 


MICPC«M1CPC+1 






CI) 


£16600 


063170 


<MOVE1SPX1BRIDCCA>SP10> 






597 








|ZERO THE BRG 




598 


S16602 




SP BR,DECA,SP1 


•CLEAR INIT MODE 




Ci) 




000130 


HICPC«H1CPC+1 






CD 


9166)92 


fc>63161 


<WOVEISPXJBR!DECAtSPl> 






599 


016604 


390131 


BRWRTE IHH,200 
HICPC=KICPC*1 


;SET OK TO SEND 




(1) 


016604 


040640 


<MOVE 1 WRTEBR! IMM 1<200» 






600 


016606 




ALWAYS SA3 






CI) 




000132 


HICPC«MICPC+1 






CI) 


016606 


110737 


<JUMPJALCOHDI<SA3-INITi3000»4>l<SA3-INlTi777/2» 
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DDCHGH . MAC 21-APP-77 10:16 NIDLE2— NO CSR ACTIVITY STATE 



602 






.SBTTL NIDLE2 NO CSR. ACTIVITY STATE 


603 


B16610 




NIDLE2: BRWRTE BR, SELA! SP1 ;READ PORT STATUS WORD 


CI) 




000133 


MICPC«MICPC+1 


CI) 


016610 


060601 


<MOVE! WRTEBR! BR KSELAt SP1>> 


605 


316612 




BR4 NIDLE5 f INTERRUPT PENDING?— BRANCH 


CI) 




C00134 


MICPC*M1CPC*1 


CI) 


016612 


103141 


<JUMPtBR4CONS<NIDLE5-INITt3000*4>l<NIDLE5-INITfc777/2» 


610 


016614 




SPBR IBUSt INCON,SP0 ; READ INPUT CONTROL CSR 


CI) 




000135 


HICPC«MICPC+1 


CI) 


016614 


123400 


<M0 VE 1 SPBRX i IBUS i INCON 1 SP0> 


611 


716616 




BRSHFT jSHIFT IT RIGHT 


CI) 




0001 36 


MICPC*M1CPC+1 


CI) 


016616 


001620 


<HOVE! SHFTBR1 WRTEBR 1SELB> 


612 


<*16620 




BR4 INWATi ;IF RQI SET — BRANCH 


CI) 




000137 


MICPC«M1CPC+1 


CI) 


416620 


103146 


<JUMPlBR4CONl<INWATl-INITi3000»4>l<INWATl-INITt777/'2» 


613 






;T0 RE-READ THE IN CNTRL REGISTER TO 


614 






;A RACE IN MICRO-P READ/UNlBUS WRITE 


616 


016622 




ALWAYS IDLE 


CI) 




0C0140 


MICPC»M1CPC+1 


CI) 


016622 


100451 


<JUMP! ALCONDKIDLE-INIT&3000»4>KIDLE-INITi777/2» 


618 


016624 




NIDLE6: 


639 


016624 




NIDLE5: PSTATE OUTINT ;SET STATE FOR INTERRUPT PROCESSING 


CI) 


016624 




HEM IMM,«0UTINT-INITt777/2» 


C2) 




B00141 


HICPC«MICPC + 1 


C2) 


016624 


602614 


<H0VEJWRMEM!IMM!«0UTINT-INIT6777/2»> 


640 


016626 




ALWAYS IDLE 


CI) 




000142 


MICPC«M1CPC*1 


CI) 


016626 


100451 


<JUMP!ALCOND!<IDLE-INIT63000*4>KIDLE-INIT{i777/2» 



OWCll DDCMP PROTOCOL IMPLEMENTATION 
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INhAlT---*AIT FOB HOI TO CLEAR 



PAGE: 0170 



643 






644 


016633 




(1) 




009143 


m 


J16630 


123400 


b»5 


416632 




(1) 




040144 


(1) 


016632 


060520 


646 


016634 




(1) 




000145 


(1) 


116631 


103550 


647 






648 


016636 




(I) 




000146 


(1) 


816636 


123400 


649 


£16640 




(1) 




0001 47 


(1 ) 


016644 


103557 


65.) 


016642 




U) 


116642 




(2) 




300150 


(2) 


016642 


002546 


651 


016644 




(1) 




000151 


(1) 


016644 


060520 


652 


016646 




(1) 




000152 


(1) 


016646 


1 17460 


653 


016650 




(1) 


01665? 




(2) 




000153 


(2) 


016650 


002543 


654 


•16652 




( t) 




000154 


(1) 


016652 


944600 


655 


516654 




(1) 




040155 


(1) 


016654 


061300 


656 


916656 




(1) 




000156 


(1) 


916656 


100451 


657 






658 


016660 




(1) 




000157 


(1) 


016660 


001620 


6t>3 


016662 




(1) 




000160 


(1) 


016662 


103051 


664 


016664 




(1) 


916664 




(2) 




000161 


(2) 


016661 


002563 


665 


016666 




1 1) 




000162 


(1) 


016666 


140451 


667 


01667-* 




(1) 




000163 



. s6ttl 1nwait---wait for bqi to clear 
inwait: spbr ibus, incon,sp0 
Micpomcpc+i 

<MOVEISPBRXJIBUSIINCON16P0> 
BRMRTt: BR,<AA!SP0> 
MICPOHICPC + 1 
<MOVE!WRTEBRIBR!<AAJSP0» 
BR7 NIDLE3 
MICPOMICPC + 1 

<JUMPlBR7CONJ<NIDLE3-miTS3»00»4>!<NIDLE3-INIH777/2» 



; READ INPUT CONTROL CSR 
fSHIFT IT LEFT 

; INTERRUPT UNABLE HAS BEEN SET 



;READ THE INPUT CONTROL CSR 



; READY IN STILL SET 



INWATi: SPBR IBUSr INCON,SP0 

micpc«micpc+i 

<HOVEI5PBRXUBUSlINCONtSP0> 
BR 7 INWAT2 
MICPC*MICPC+1 

<JOHP!BP7CONl<INKAT2-INIH3000*4>i<INWAT2-INlT4777/2>> 
NIDLE3S PSTATE INWATI ; UPDATE STATE TO INPUT 

MEM IMM,«INWATl-INITJ.777/2» 
MICPC"HICPC+1 

<MOVEI WRMEM JIMM!«INWATl-INII&777/2>» 

BRWRTE BR,AA1SP0 jSHIFT CSR LEFT 

MICPC«M1CPC+1 

<MOVE|WRTEBRIBRI<AAISP0» 

BR7 ININt 

MICPC»HICPC+4 

<JUMpiBR7CONl<ININT-INIT«.3000»4>J<ININT-INUfc777/2>> 

PSTATE INWAIT ; UPDATE STATE POINTER TO NO INTERRUPT GENERATED 

MEM IMM,«INKAIT-INIT«.777/2» 

NICPC«MICPC+1 

<MOVE:MRMEMlIMMi«INHUT-INIT&777/2>» 
N IDLE4 ! BRWRTE I MM, 200 
MICPC»HICPC+1 
<MOVE!WRTEBRt INMt<200» 

OUT BR, AORBIOIUCON ;SET THE RDYI 

MICPC»NICPC+1 

<H0 VE 1 HROUTX 1 BR t < AORB 1 OINCOK» 

ALWAYS IDLE 

MICPC*MICPC+1 

<JUMP: ALCONDl<IDLE-INITl3000*4>!<IDLE-INITt777/2>> 



1 SHIFT THE BR RIGHT 



; 

INWAT2: BRSHFT 

MICPC«H1CPC+1 

< MO VE 1 SHf TbR I WRTEBR t SELB> 

BR4 IDLE 

MICFC"MICPC+1 

<JUMPlBR4CONJ<IDLK-INITjt3000«4>l<IDLE-INITfc777/2» 

PSTATE INSRV JSCT NEXT STATE TO INPUT SERVICE 

MEM IMH,«IN6RV-IHITS777/2» 

MICPC«M1CPC+1 

<MOVElWRMEHt IMM!«INSRV-INIT4777/2»> 

ALWAYS IDLE 

MICPC«MICPC+1 

<JUMPlALCONDl<IDLE-INITt3000«4>KIDLt>INlTfc777/2» 
INSRV: SPBR IBUS, INCON,SP0 ;READ THE INPUT CONTROL CSR 

MICPC*MICPC+1 



DMCll DDCMP PROTOCOL IMPLEMENTATION 
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PAGE I 0171 



016670 
016672 

016672 
016674 

016674 
PI6676 

016676 
016708 

016700 
016702 
B16702 

016702 
#16701 

1/16704 
016706 
U16706 

016706 

8167111 

016710 
016712 
016712 

016712 
016714 

016714 
C16716 

016716 
016720 

016720 
016722 

B16722 
016724 
016724 

016724 
•16726 

416726 
01673* 

»*t6734 
K 16732 



040164 
1 42600 



000165 
1 32172 



900166 
001620 



009167 
102574 



B40I70 
002700 



000171 
100575 



0001 72 
002657 



0001 73 
100575 



000174 
002721 



040175 
06?601 



040176 
102201 



000177 
100451 



000200 
102211 



203701 
i!025 3 3 



006 20 2 
000533 



i(P02fi4 
si Jt l / I 



; --SENSE OR BASE 



<*0VE!SPBRX!IBUS|INC0H19Pfl> 
BR1 30$ 
HICPC«MICPC+1 
<JUMPlBRlCONK30»-INIT43000*4>i<30»-INITt777/2>> 
BR0 10» ;CNTL I 

MICPC"MICPC+1 

<JUMP!BH0CONi<10«-INITt,3000«4>l<10S-INITi7 77/2>> 

BRSHFT }MOST BE BA/CC-SHIFT FOR IN OR OUT 

MICPC"MICPC+1 

<M0 VE 1 SHFTBR i NRTEBRl SELB> 

BR1 15» 

MICPC»MICPC+1 

<JUMPlBRlCON!<15«-tNITt300fl»4>l<lS«-INITS777/9» 
PSTATE TBASRV ; TRANSMITTER 

MEM IMM,«TBASRV-INIK777/2» 
MICPC*MICPC+1 

<MOVEI WRMEM! IMW!<<TBASRV-INITfc777/2>» 

ALWAYS 20$ 

MICPC«MICPC*1 

<JUMP!ALCONDi<20$-INIT&3000M>K20$-INITfc777/2» 
10$ I PSTATE CTLSRV 

MEM IMM,«CTLSRV-INITS777/2>> 
MICPC«M1CPC+1 

<M0VEJWPMEMlIMMl«CTL8RV-INlT4777/2>» 

ALWAYS 20« 

MICPC»MICPC+1 

<JUMP[ALCONDI<205-INIT63000»4>i<20S-INITi777/2» 
15$: PSTATE RBASRV 

MEM IMM,«RB»8RV«Ilim777/2» 
MICPC»MICPC+1 

< MOVE I WRMEM ! IMM • <<RBASRV-IHITt777/2>> > 
20$: BRWRTE BR,SELA[SP1 jINIT MODE 

MICPC«MICPC+1 

<MOVEIWPTEBRiBR!<SELAlSPi» 

BR0 PROCER j IF INIT MOUE--ERROP 

MICPC«M1CPC+1 

<JUMPiBR0CONl<PROCER-INIT(.3000*4>!<PROCER-INITfc777/2>> 

ALWAYS IDLE 

HICPC«M1CPC+1 

<JUMP1 ALCONDi<IDLE-lNIH3000*4>KIDLE-INIT4777/2» 
30$: BR0 INSRVl ;IF BASE — PROCESS 

MICPC»M1CPC+1 

<JUMP|BP0CONl<lNSRVl-INIT&3000*4>S<INSRVi-INIT&777/2» 
PPOCER: PSTATE NIDLE2 ; RESbT PORT STATUS 

MEM IMM,«NIDLE2-INIK777/2» 
MICPC»M1CPC+1 

<MOVEIWRMEMlIMMI«NIDLE2-INIK777/2»> 



BRWRTfc IMM,100 
MICPC«MlCPCtl 
<M0VEIWPTFBR1IMM 1<100» 
OUT BR, AANUB'OINCON 

MICPC«MICPC+1 

<*OVElWHOUT>ilBP!<AANDBJOINCON» 
LOMA IMM,««THRS + 3» 
MTCPC»Mlcrc+l 

<*OVE!LUMARi IMM!<<RTHRS+3>i377>> 



(CLEAR INPUT CONTROL CSR 



; ADDRESS ERROR LINK 
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DDCHGH 


.SAC 21 


-APR-77 


i"t 16 


INWAIT— WAIT tO'K RQI TO CLEAR 


685 


016734 






MEMINC IMM.2 


(1) 




700205 




HICPC»M1CPC+1 


(1) 


616734 


016402 




<MOVEl WRMEM I INCHARt INMt<2>> 


636 


016735 






hem im,e 






0»B206 




MICPC=»ICPC+1 


(!) 


&16736 


002400 




<MOVEtWPMEM>IMM!<0» 


687 


H6740 






OUTPUT MEMX, SELB { OMODEM (CLEAR DATA TERMINAL READ! 


(1) 




0«e237 




HICPC*M1CPC+1 


(1) 


v!6743 


8*2233 




<HOVE i nHCul i MEtiXi <SELBi OnODEH» 


683 


016742 






ALWAYS RCEXX ;POST THE ERROR - FATAL 


(I) 




000210 




MICPCsMlCPC+1 


CI) 


016742 


114524 




<JUMP1 ALCOND!<RCEXX-INITfc3000*4>l<RCEXX-INITt,777/2>> 


6S9 


fel&744 






INSRVil 8F.KP.Tfc BR.-SELA;SP* fiSXT MODE? 


(1) 




000211 




MICPC*MICPC+1 


(1) 


P16744 


06060! 




<MOVEIWFTEBRlBR!<SELAiSPl» 


690 


016746 






BR0 BASSRV 


cd 




000212 




MICPC«M1CPC+1 


CD 


K16746 


132072 




<JUMPiBR0CONJ<BASSRV-INITi3000*4>l«BASSRV-INITfc777/2» 


691 


H6750 






ALWAYS PROCER ;N0 - PROCEDURE ERROR 


CI) 




£00213 




HICPC«MlCPCtl 


CI) 


016750 


100601 




<JUMP!ALCONDl<PROCER-I«ITfc3000»4>l<PROCER-INITti777/2» 
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693 






. SBTTL OUTIMT— SET UP OUTPUT INTERRUPT IRDYO] 


694 


H6752 




outint: 


696 


C16752 




PSTATE PINT2 


CI) 


C16752 




HEM IMM,«PIHT2-INITS777/2» 


C2) 




000214 


MICPC=M1CPC+1 


(2) 


016752 


002631 


<MOVElWRHEMiIMM!«PINT2-INIT4777/2>» 


701 






{COMPLETION 


702 


iTlb754 




LDMA IMM,NXTINT ; ADDRESS OF NEXT INTERRUPT POINTER 


CI) 




000215 


MICPC*MICPC+1 


CD 


016754 


010240 


<MOVEJLDMARlIMMl<NXTINJ«i377» 


703 


CH6756 




LDMA MEMX, SELB ;NEXT INTERRUPT 


CD 




000216 


NICPC»MICPC+1 


CD 


016756 


050220 


<M0VE!LDMAR1MEHX1<SELB» 


704 


016760 




SP IBUS,OCOK,SP0 ;READ THE OUTPUT CONTROL CSR 


CD 




000217 


MICPC=MICPC+1 


CD 


016760 


123040 


<MOVE!SPX1IBUSIOCON1SP0> 


705 


fl6762 




OUT <MEMX!lNCMAft>,<AORBiOOCON> ; WRITE THE OUT CONTROL CSR 


CD 




030220 


MICPC«MICPC+1 


CD 


016762 


055302 


<MOVE ! WROUTX 1 MEMX! INCMAR | <AORB 1 00CON» 


706 


016764 




LDMA MEMX, SELB j ADDRESS LINK 


(D 




000221 


MICPC*M1CPC+1 


CD 


016764 


3502^0 


<MOVE ! LDMAR } MEMX J <SELB» 


707 


016766 




BRWRTE <BRJINCMAR>,<AA1SP0> ;KICK PAST LINK STATUS BYTE 


CD 




E00222 


MICPC»MICPC+1 


CD 


1. 167 66 


074520 


<MOVElWRTEBP!BRlINCMARl<AAiSP0» 


708 






; SHIFT CSR0 IMAGE LEFT 


709 






;#»»D0 NOT CHANGE BR UNTIL BR7*»* 


710 


•H6770 




OUT <MEMXIINCMAR>,<SELB10P0RT1> ;WRlTE LOW BYTE OF BA TO CSR 


CD 




000223 


MICPC«HICPC*1 


CD 


B16770 


P55224 


<M0VE!WR0UTX1 MEMX! INCMAR t<SELBJOPORTl» 


711 


C16772 




OUT <MEMX J INCMAR> , <SELB J 0P0RT2> jWRITE HIGH BYTE OF 8A TO CSR 


CD 




£00224 


MICPC=H1CPC+1 


CD 


016772 


055225 


<MOVE 1 WPOUTX t MEMX! INCMAR t <SEtBi 0P0RT2>> 


712 


016774 




OUT <MEMX!I"CMAR>,<SELB10PORT4> jWRITE HIGH BYTE OF COUNT TO CSR 


CD 




£0k/225 


MICPCeHICPC+1 


CD 


t516774 


055227 


<M0VE|WR0UTX1MEKX!INCMARJ<«ELB10P0RT4» 


713 


tl6776 




OUT <MEMX!INCMAR>,<SEIiBlOPORT3> JWRITE THE LOW BYTE OF COUNT 








MICPCMIcPCti 


CD 


016776 


055226 


<M0VE! WROUTXi MEMX1 INCMARKSELBI 0P0RT3» 


714 






;«»*HERE IS BR7*»* 


715 






0P7 PE1 ; INTERRUPT ENABLE IS SET 


CD 




000227 


HICPC=MICPC+1 


CD 


ei70k?0 


133757 


<JUMP!BR7CONKPEl-INITfc3BM»4>KPEl-INITt77 7/2» 


716 






f GENERATE AN INTERRUPT 


718 


117^2 




ALWAYS IDLE 


(1) 




£00230 


MICPC*M1CPC+1 


CD 


»«17002 


100451 


< JUMP J ALCONDt<lDLE-INITl3000»4>KIDLL-lNiri,/77/2» 


719 


U17004 




PINT2: PSTATE OUT*AIT 


CD 


017004 




MEM lMM,«OUTWAlT-INITS777/2» 


(2) 




000231 


MICPC=M1CPC+1 


C2) 


9170*4 


002652 


<«OVElWRMEM!lMM!«0UTWAIT-INIT«,777/2»> 


724 


617406 




LDMA 1MK,NXTTNT ; ADDRESS NEXT INTERRUPT QUEUE 


CD 




drib 2 12 


MICPC»M1CPC+1 


CD 


«1 7<.V)6 


CI0240 


<MOVElLDMAR!IMM!<NXTINTfc377» 


725 


^17010 




SP MEMX, SELB, SP0 jCOPY ADDRESS FOR NEXT INT TO SP0 


CD 




0002 n 


MICPC=M1CPC*1 



DMCH DDC«P PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 10S16 



MACVU 30(1046) ll-JUL-77 12125 PAGE 6-16 
OUTINT-— SET HP OUTPUT INTERRUPT CRDYOJ 



PAGE I 



0174 



(i) 017^10 


043220 


<M0VE I SPX ! MEMX J SELB t SP0> 




726 1117012 




MEM IMMilNTSTK 


;ASSUME hRAP AROUND CASE 




1^00234 


MICPC=MlCPCtl 




(1) K17012 


0026 42 


<M0VL: WRMEM1 IMM!<INTSTK» 




727 017014 




BRWRTE IMM?<<MMEND-2>> 


; ADDRESS OF LAST INT IN STACK 




£00235 


MICPC«M1CPC+1 




( 1 ) 1*1701 4 


0B07 76 


<MOVE ! WRTE.BR ! IHM J <<MMEND-2>>> 




728 (17^16 




CMP BR,SP0 


{SHOULD HE WRAP 


1 1 ) 


£00236 


MICPC«MICPC+1 




( 1 } #17016 


060360 


<SUBTC I BR ! SP0> 




729 017023 




Z 5$ 


j YES--BRANCH 


( 1 ) 


C00237 


MICPC E MICPC+1 


(1) 017020 


101642 


<JUMPi ZCOND!<5t-INITS3000»4>l<5 


)-INITS777/2» 


730 &17022 




BRWRTE 1MM*2 


;0FFSET FOR NEXT POINTER 




000240 


MICPC=>M1CPC + 1 




(1) 017022 


000402 


< MOVE 2 ftRTEBRS IMMl<2>> 




731 P17024 




MEM BR,ADD1SP0 


•UPDATE POINTER 


( 1 ) 


000241 


MICPC»MICPC+1 




(1) £17324 


062400 


<M0 VE 1 HRMEM I BR I < ADD I SP0>> 




732 917026 




5$: SP HEMX# SELB? SP0 


;COPY POINTER TO 5P0 




0?0242 


MICPC«MICPC+1 


(1) 017026 


043220 


<MOVE! SPX S MEMx! SELB I SP0> 




7 33 017030 




LDMA IMM,NXT8P 


;PICK UP START OF IN QUEUE 




000243 


MICPC»MICPC+1 




(1) t' 17030 


010241 


<«0VE1LDMAR!IMH'<NXTSP6377» 




734 017032 




CMP MEMX,SP0 


{COMPARE TO END 


( t ) 


P00244 


MICPC*MICPC+1 




(1) 617032 


£40360 


<SUBTC<MEMX1SP0> 




735 t>17034 




Z 10$ 


(IF EQUAL—CLEAR INT PENDING 


( 1 ) 


000245 


HICPC"sMICPC+l 




(1) K17034 


1 01647 


<JUMPtZCOND!<10S-INITt3000#4>i<10S-INIU.777/2» 


736 (fl703b 




ALWAYS IDLE 






000246 


MICPC"MICPC+1 




(1) 017036 


1 00451 


<JUMPlALCONDl<IDLE.INIT&3000«4>l<IDLE-INITfc777/2» 


737 017040 




10S: BRHRIE IHM,357 


jMASK TO CLEAR INT PENDING 




000247 


MICPC*MICPC+1 




(1) t*17040 


000757 


<MUVE!HRTEBR1IHMJ<357» 




738 017042 




CLRIDL: SP BR, AANDB, SP1 






000250 


HICPC»MICPC-H 




(1) 017042 


C63261 


<MOVE t SPX IBRt AANDB JSP1> 




739 017044 




ALWAYS IDLE 






800251 


MICPC«MICPC+1 




(1) 017044 


100451 


<JUMPiALCONDl<IDLE>INII&3000»4>t<IDLE-INIT&777/2» 



D»C11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUli-77 12J25 PAGE 6-17 PAGE! 0175 
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1 






.SBTTL OUTWAI — WAIT FOR RDYO TO GO AWAY 


2 


017k! lb 




OUTWAU SPBR IBUS,OCON, SP0 ;READ OUTPUT CONTROL 


) 




000252 


MICPC=MICPC+1 


) 


317046 


123440 


<MOVElSPBRXtIBUSlOCONlSP0> 


7 


017050 




BR7 IDLE 


) 




H00253 


MICPCsMICPC+1 


) 


C17w50 


103451 


<JUMP!BR7CONl<IDLE-INIT&3000»4>!<IDLE-INIT67 77/2» 


9 


017052 




BRHRTE IMM,100 j CLEAR CONTROL BITS 


) 




000254 


MICPC"M1CPC+1 


) 


t<17«!52 


000500 


<MOVE! HRTEBR1 IMHi <100>> 





01705* 




OUT BP.,OOC0NJ AANDB 


) 




000255 


MICPCaMICPC+i 


) 


017054 


061262 


<M0VEIHR0UTXIBR!<00C0N1AANDB» 


1 


tfl7«56 




ALWAiS INS13 


) 




000256 


MICPC*M1CPC+1 


) 


017056 


100671 


<JUMPiALCONDl<INS13-INITt3000»4>!<INS13-INIT4777/2>> 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DPCKGH.MAC 21-APR-77 10:16 
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CTLSRV-- CNTL 1 SERVICE 



PAGES 0176 



. SBTTL CTLSRV— CNTL I SERVICE 



1/17060 




CTLSRVS 


SPBR IBUS, PORT4,SP0 


J TO SP6> 




000257 




HICPC=M1CPC+1 




9i 7060 


1 23560 




<MOVElSPBRXi IBUS1PORI41SP0> 




fcil7062 






BPSHFt 






00^260 




HICPC*H1CPC+1 




017062 


001620 




<MOVE! SHFTBR! WRTEBR1SELB> 




PI 7064 






BR1 HDSEL 


; IF SET IS HALF DUPLEX 




090261 




HICPC»MICPC+1 




01 7064 


1 02754 




<JUMPlBRlCONJ<HDSEL-INITfc300»»4>l<HDSEL-INITfc777/2» 


fl 7066 






OUTPUT IMM,<100iOHODEM> 


>MASK DTR, TURN Oft HDX 




000262 




MICPC*MICPC+1 




(M745SS 






«MO¥E:S*ROUT1IKMJ<100JOHODEM» 




01707»> 




INSlli 


BRWRTE DP,<SELAJSP0> 


; RESTORE THE CNTL WORD 




080263 




HICPC«MICPC+1 




017070 


060600 




<M0 VE I NRTEBR 1 DP i <SEL A 1 SP0» 




017072 






BR0 CBOOT 


;IF SET IS BOOT 




800264 




MICPC«MICPC+1 




bl 7372 


1 02273 




<JUMP!BR0COHi<CBOOT-INITfc3000*4>I<CBOOT-INITS777/2» 


017074 




INS12! 


SP IBUS, INCON,SP0 


; READ THE INPUT CONTROL CSR 




000265 




MICPC*MICPC+1 




P17074 


1 23000 




<MOVE! SPX! IBUS1 INCON ■ SP0> 




(31 7076 






BRWRTE IMM, 100 


;ZERO THE BR REGISTER EXCEPT INT ENABLE 




000266 




MICPC=H1CPC+1 




817076 


000500 




<MOVEI WRTEBR1 IMM1<100>> 




917100 






OUT BR, <AANDB J 0INCON> 


; CLEAR IN CONTROL CSR 




000267 




HICPC»MICPC+1 




»17100 


fc>61260 




<MOVE < WROUTX 1 BR t <AANDB10INC0N» 




B17102 






LDMA IMM, PRTST 


} ADDRESS PORT STATE 




000270 




HICPC«MICPC+1 




017102 


01021 1 




<M0VEILDMARJIMMi<PRTSTS377» 




017104 




INS13: 


PSTATE NIDLE2 




#17104 






MEM IMM,«NIDLE2-INITl777/2» 




000271 




MICPC«MICPC+1 




H 17104 


002533 




<M0VE1 WRMEM!IHM:«NIDIiE2-UiIT&777/2>» 


0171P6 






ALWAYS IDLE 






000272 




MICPC«MICPC+1 




017100 


1 00451 




<JUHPJ ALCONDi<IDLE-INITi3000»4>!<IDLE-INITi777/2» 


917119 




CBOOTS 


> 

BRWRTE IMM, 200 


;MASK FOR BOOT MODE 




000273 




HICPC*HICPC+1 




£17113 


000600 




<M0VE1 WRTEBR ■ IMM ! <200» 










SP BR,A0RB,SP1 


;IN PORT STATUS WORD 




£00274 




MICPC«MICPC+1 




017112 


063301 




<M0VEJSPX!BR1A0RB{SP1> 




917114 






BRWRTE IMM, 204 


{MASK FOR OK TO SEND AND LINE IDLE 




000275 




MICPC«MICPC+1 


&17114 


000604 




<MOVE1WRTEBR1IMM1<204» 




617116 






SP BR,SELB,SP10 


;IN LINE STATUS 




O00276 




HICPC*M1CPC+1 




C1711& 


063230 




<M0 VE I SPX 1 BR 1 SELB 1 SP10> 




017120 






ALWAYS INS12 






e'>0277 




MICPC»NICPC+1 




B17120 


100665 




<JUMPJALCONDJ<IKS12-IHIIfc3000»4>l<INS12-I«IT6i777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
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773 






.SBTTL TBASRV— TRANSMITTER BUFFER ADDRESS SERVICE 


774 


017122 




TBASRV S LDMA IMM, ETC 


;GET POINTER TO END OF TMT CHAIN 


(1) 




000300 


HICPC=M1CPC+1 




(1) 


017122 


PI 0070 


<M0VE1LDMAR!IMM!<ETC«77» 




775 


617124 




LDMA MEMX,<SELB!SPXJ5P0> 


(FIND THE LINK 


(1) 




000301 


MICPC«M1CPC+1 




(1 ) 


017124 


053220 


<MOVEi LDMARt MEMX1 <SELB1 SPXi SP0» 




776 


C17126 




MEMINC IMM, 1 


f BUFFER ASSIGNED IN IN LINK FLAGS 


(1) 




000302 


MICPC=MICPC+i 




(1) 


017126 


£16401 


<M0VE:WRMEH!INCHARJIMHJ<1» 




777 


017130 




BRWRTE .<IMMJINCMAR>»TML8 


jPOINT PAST NUMBER FIELD 


(1) 




600303 


MICPC«HICPC+1 


1 


(1) 


PI 7 1 33 


C14543 


<MOVE 1 WRTEBR1 IMM 2 INCMAR J<TML8» 




778 








jSEI BR FOR ADDITION TO SP0 


779 


C17132 




MEMINC IBUS,P0RT1 




(1) 




000304 


MICPCiMICPC+1 




(1) 


B17132 


136500 


<H0VEIWRMEM!INCMAP!IBUSI<P0RT1» 




780 


(117134 




MEMINC IBUS,P0RT2 




(1) 




000305 


MICPC»MICPC+1 




(1) 


P17134 


136520 


<M0VE1 WRMEMi INCMARt IBUSJ<P0RT2» 




781 


017136 




MEMINC IBUS,P0RT4 




(1) 




000306 


MICPC=MICPC+i 




(1) 


017136 


1 36560 


<M0VE{ WRMEMI INCMAR i IBUS 1<P0RT4>> 




782 


017140 




MEMINC IBUS,P0KT3 




(1) 




200307 


MICPC«M1CPC+1 




(1) 


K17140 


1 36540 


<MOVEI WRMEMJ INCMARJ IBUSKP0RT3» 




783 


017142 




LDMA IMM, ETC 




(1) 




K00310 


MICPC«M1CPC+1 




CI) 


017142 


£10070 


<MOVEI LDMARi IMMJ<ETC&377>> 




784 


017144 




MEM IMM, TMLl 


; ASSUME QUEUE WRAP AROUND 


(!) 




SJ33311 


MICPC=MICPC+1 




(1) 


017141 


042471 


<MOVE t WRMEM ! IMM ! <TMLl» 




785 


0171 46 




CMP BR,SP0 


; END OF CHAIN? 


(1) 




0U0312 


MICPC«M1CPC+1 




(1) 


0171 46 


B66360 


<subtc;br:sp0> 




786 


017150 




Z 10« 


;IF YES— BRANCH 


f 1) 




000313 


MICPCBMJCPC+l 








1 t>I < 10 


<JUMP!ZCOND!<10$-INIT&3000M>Kl0$-INlT&7 77/2» 


787 


£17152 




BRWRTE IMM, 6 


;UUEUE ENTRY LENGTH 


(1) 




000314 


M1CPC«MICPC+1 




(1) 


917152 


900406 


<HOVEi WRTEBR J IMM i<6» 




788 


017154 




MEM BR,ADD1SP0 


; UPDATE THE END POINTER IN MEMORY 


(1) 




E00315 


HICPC = MiCPC + l 




(1) 


917154 


L'62400 


<M0 VE 1 WRMEM ! BR J < ADD 1 5P0» 




789 


(J17156 




10$; BRWRTE IMM, 2 {NUMBERED MSG PENDING MASK 


(1) 




PI00316 


HICPC«M1CPC+1 




(1) 


017156 


£■00402 


<M0VE!WRTEBR1IHMK2» 




790 


017160 




SP BR,AORB,SP10 I UPDATE 


LINE STATUS 


(1) 




&i*0317 


MICPC»MICPC+1 




(1) 


017160 


063313 


<hoveispx:bp! aorb:spib> 




791 


017162 




ALWAYS INS12 




(1) 




'00 320 


MICPC«HICPC+1 




(1 ) 


=•17162 


1 i)0b65 


<JUMPtALCONDI<INS12-INIT43000»4>J<INSl2-INITfc777/2» 



OMClt DDCMP PROTOCOL IMPLEMENTATION 
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PAGE: 0178 



793 






.SBTTIi RBASRV--RECEIVE BUFFER ADDRESS SERVICE 


794 


017164 




PBASRV: LDMA IMM,ERC (ADORES END OF RECEIVE CHAIN 


(1) 




0»v321 


MICPC«M1CPC+1 


(t) 


1*17164 


£10023 


<MOVElLDHARt IMMKERCG377» 


795 


017166 




LDMA MEMX, <SELB t SPX J 5P0> (GET THE POINTER TO LINK 


( 1 ) 




(100322 


MICPC»M1CPC+1 


(I) 


i£17166 


053220 


<MOVElLOMARiMEMXl<SELBiSPXiSP0>> 


796 


B17170 




HEMINC IMM, 1 


( 1 ) 




M«S323 


MCPC«MICPC + 1 


( 1 ) 


W17170 


016401 


<MOVE! HRMEH ! INCMARI IMM I <1>> 


797 


ff 17172 




HEMINC IBUS,P0RT1 


(I) 




000324 


MICPC«MICPC+1 


( 1 ) 


fcl 7 1 72 


1 36500 


<MOVE! WFMEM I INCMARI IBUSK PORT 1>> 


798 


B17174 




HEMINC IBUS.P0RT2 


( 1 ) 




F00325 


MICPC«MICPC+1 


( 1 ) 


ui 7 1 74 


1 365 2k) 


<MOVEi WRHEM J INCMAR i IBUSi <P0RT2>> 


799 


6171 76 




HEMINC IBUSrP0RT4 


( 1 ) 




£40326 


MICPC«MICPC+1 


( 1 ) 


•17176 


1 365t>0 


<MOVE! WRHEM! INCMARI IBUS J <P0RT4>> 


800 


01720? 




HEMINC IBUS»P0RT3 


( 1 ) 




£00327 


HICPC a MICPC+l 


(1) 


I»17200 


1 36540 


<M0VE1 WRMEMI INCHARt IBUSJ <P0RT3>> 


801 






((((NOTE INVERTED ORDER Or PORT 3 AND P0RT4 


802 


617202 




LDMA IMM,ERC ' 


( 1 ) 




000330 


MICPC«MICPC+1 


( 1 ) 


017202 


010023 


<MOVE 1 LDMAR J IMM J <ERCir377» 


ec3 


017204 




MEM IMH,RCL1 ( ASSUME WRAP AROUND CASE 


( l ) 




000331 


MICPC«M1CPC+1 


( i ) 


817204 


002424 


<MOVE! WRMF.M1 IMMi<RCLl» 


804 


K1 7206 




BRHRTE IMM,RCL7 (GET ADDRESS OF END OF CAHIN AREA 


( 1 ) 




000332 


HICPC«MICPC+1 


< 1 ) 


617206 


f 00462 


<N0VE1 WRTEBRI IMM ]<RCL7» 


805 


017210 




CMP BR,SP0 (CHECK FOR END 


( 1 ) 




000333 


MICPC"MICPC+1 


(I) 


1917210 


060360 


<SUBTC!BR1SP0> 


836 


(.17212 




Z INS12 I IF EOUAL BRANCH 


(1) 




i/00334 


MICPCsMICPC+1 


( t ) 


C17212 


101665 


<JUMPI ECONDKINSl2-INITt3000*4> J<INS12-INITi«777/2>> 


837 


PI 7214 




BRWRTE IMM, 5 (CALCULATE ADDRESS OF NEXT LINK 


(1) 




£00335 


MICPC*MICPC+1 


( 1 ) 


017214 


000405 


<M0VE1 WRTEBR J IMH J<5» 


8lc8 


017216 




MEM BR,ADD!SP0 ),. 


( 1 ) 




000336 


HICPC«M1CPC»1 


( 1 ) 


017216 


1)6 2400 


<M0 VE I HRMEM { BR i < ADD t SP0» 


809 


617220 




ALWAYS INS12 jEXIT 


(t) 




000337 


HICPC*MICPC+1 


( 1 ) 


f 17220 


100665 


<JUMp:ALCOhDi<INS12-I"ITt3000«4>l<INS12-INIT4777/2>> 


810 


117222 




RAJ; BRHRTE IMH, 317 ; MASK TO CLEAR START MODE AND CLR ACTIVE 


( 1 ) 




000340 


MICPC B MICPC+1 


(1) 


017222 


000717 


<MOVEtNRTEBRiIHMl<317» 


811 


S17224 




SPBR BR, AANDB, SP10 jCLEAR BIT IN LINE STATUS WORD 


( t ) 




000341 


MICPC»MICPC+1 


(1) 


et7224 


063670 


<MOVE! SPBRX! BR1 AANDB1 SP10> 


812 


017226 




RA3 ! BRHRTE IMM,0 ;CLEAR BR 


(1) 




000342 


MICPC-HICPC+1 


( 1 ) 


317226 


000400 


<MOVE! WRTEBR! IHM1<0» 



DMC1I DDCMP PFOTOCOL IMPLEMENTATION MACY1 1 30(1046) ll-JUL-77 12|25 PAGE 6-21 PAGE I 0179 

DDCHGH.VflC 21-APP-77 1<»I16 RBASRV— -RECEIVE BUFFER ADDRESS SERVICE 



613 


P17230 




SP BR,SELB,SP13 (SET NUMB MESSAGE TYPE IN SP13 


(1 ) 




600343 


MICPC«MICPCtl 


(1) 


017233 


363233 


<M0VE1SPXSBR1SELBISP13> 


ei4 


i'17232 




STATE RCVB (CHANGE RECEIVE STATE POINTER TO 


( 1 ) 




004344 


MICPC"HICPC+1 


( 1 ) 


017232 


6*0424 


<MOVE! WRTEBR ! IMM!<RCVB-INIT&777/2>> 


815 


t.17234 




ALWAYS REXII 


C 1 ) 




000345 


HICPC«M1CPC+1 


« 1) 


4S17234 


130450 


<JUMP!ALCONDJ<REXIT-INIT&3000M>S<REXIT-INIT&777/2>> 


816 
818 


017236 




1 

ACK: BRHRTE BR,AA!SP10 ; READ LINE STATUS SHIFTING LEFT 


(1) 




P00346 


MICPC»M1CPC+1 


( 1 ) 


017236 


060530 


<MOVE! WRTEBR! BR! <AA*SP10» 


819 


B17 240 




BR4 5S (IF START RECD--CLEAR START MODE 


(1) 




900347 


MICPC«HICPC+1 


(1) 


217240 


103351 


<JUMP!BR4CON!<5S-INITfc3000*4> J<5t-INIli777/2>> 


820 


D17242 




ALWAYS IDLE 


(1) 




000350 


MICPC»MICPC+1 


(1) 


017242 


100451 


<JUMP1 ALCONDl<IDLE-INITS3000«4>!<IDLE-INITS777/2» 


821 


017244 




5S: BRHRTE IMM.327 (CLEAR START MODE 


(1) 




000351 


MICPC»MICPC+1 


(1) 


1)17241 


t-00727 


<M0VE!WRTEBR1IMN1<327» 


822 


©17246 




SP BR, AANDB, SP10 (IN LINE STATUS 


( 1 ) 




000352 


MICPC«MICPC+1 


tl) 


«1724b 


263273 


<MOVE ! SPX ! BP I A ANDBl SP10> 


823 


017250 




ALWAYS RD5 


( 1 ) 




000353 


MICPC«MICPC+1 


C 1 ) 


017250 


104507 


<JUMPULCONDl<RD5-INIT6300e»4>:<RD5-INITs777/2» 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
ODCHGH..MAC 21-APR-77 10:16 



MACY11 30(1046) ll-JuL-77 12:25 PAGE 6-22 
RbASRV'-RE-CEIVE BUFFER ADDKESS SERVICE 



PAGE: 0180 











BRWHTE l^Mf 100 J HD MASK TO BR 


(1) 




000354 




MICPC«M1CPC+1 


( t ) 


017252 


&00500 




<MOVEi WRTEBR 1 IMMJ<100>> 


627 


»17254 






SP BR,AORB,SP10 jUPDATE P0R1 STATUS WORD 


f I 1 




DJ0355 




HICPCsMiCPC+1 


(1) 


017254 


063310 




<MOVElSPXJBRiAORBlSP10> 


823 


f 17256 






ALWAYS INSH 


( 1 ) 




000356 




MICPOMlCPC + 1 


( 1 ) 


217256 


100663 




<JUMPSALC0HDi«IN51 i-IMTi30B0*4>i<IKSii-IKITi777/2» 
• 


829 
830 


91726H 




PEU 


BRhRTfc", IMM,300 ; MASK FOR INTERUPT AND VECTOR THROUGH 


( 1 ) 




000357 




KICPC»M1CPC+1 


83 ) 


SS 17 260 


003730 




<MOYCi WRTEBR { IMM«<300» 




£1 7262 






SP IBUSr UBBRf 3P0 jREAD BR CONTROL REG 


(1) 




800360 




MICPC»M1CPC+1 


(1) 


017262 


123220 




<MOVE1SPX!IBUS1UBBR1SP0> 


832 


I' 17264 






OUT BR,<AORBJOBR> ; INTERRUPT 


(1) 




E00361 




MICPC«H1CPC + 1 


CI J 


817264 


061311 




<H0VE1 WROUTXJ BR i < AORB I OBR» 


834 


4:17266 






ALWAYS IDLE 


(1 ) 




000362 




HICPC«HICPC+1 


(1) 


S17266 


100451 


• 


<JUMPlALCONDKIDLE-INITi3000»4>l<IDLE-INITi777/2» 


839 
840 


017270 




HALTED: 


MEMADR EM6 


(1) 




£00363 




HICPC«MICPC*1 


(1) 


617270 


£02722 




<MOVElKRHEHi<EM6-INIK777/2» 


841 








j FALL INTO ACLON 


842 


017272 




ACLOtts 


BRWRTfc IMM,2 ;CAUSE AN AC LOW 


(1) 




£00364 




HICPC»H1CPC+1 


(1) 


€17272 


000402 




<H0VE1WRTEBR1IMM!<2» 


843 


C17274 






OUT BR,<SELBJOBR> 


C i ; 




t; 00365 




MICPC=M1CPC+1 


(1) 


frl7274 


061231 




<H0 VE 1 WROUTX i BR KSELB ! OBR» 


844 


017276 




5$: 


BRWRTE IBUS.UBBR ; WAIT FOR IT TO COMPLETE 


( 1 ) 




000366 




HICPC«KICPC+1 


(1 ) 


B17276 


120620 




<M0VE1WRTEBRIIBUSI<UBBR» 


845 


#17 300 






BR1 5S 


(i ) 




P00367 




HICPC=MICPC+1 


(1) 


017 300 


102766 




<JUHP!BRlCONi<5S-INITi3000«4>!<53-INlTt,777/2» 


846 


d7302 






. ALWAV MEMX,SEL8,PAGE3 


(J) 




000370 




HICPCeMICPC+1 


CI) 


017302 


154620 




< JUMP > ALCOND | HEHX t SELB i PAGE3> 










Sit ?! i — •OUSjUDQK j isitnv On n^»ir<wii i\£>%> 


(1) 




£00371 




MICPC=MICPC+1 


(1) 


S17304 


120620 




<MOVE! MRTEBR1 IBUSKUBBR» 


8 48 


K17306 






BR4 HALTED 


( 1) 




000372 




MICPC=H1CPC+1 


(1) 


017306 


103363 




<JUMplbP4CONl<HALTED-INITS3000*4>l<HALTED-INITi777/2» 


849 


ei7310 






ALWAYS EMI 


(1) 




800373 




MICPC»MICPC+1 


(1) 


(U7313 


114725 




< JUMP 1 ALCOND 1<EM1 -IN ITi3000»4>KEMl -IN ITt 777/ 2>> 


850 
S5i 


fci73i? 




tbui: 


BRWRTE IBUSfNPR 


( 1 ) 




000374 




MICPC«MICRC+1 


( 1 ) 


017312 


120600 




<M0VE1 WRTEBR1 ISUSKNPR>> 


852 


£17314 






BR0 IDLE 



DKC11 DDCMF PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APP-77 10:16 



MACY11 30(1046) ll-JuL-77 12125 PAGE 6-23 
RBASRV— RECEIVE BUFFER ADDRESS SERVICE 



PAGE: 0181 





000375 


HICPC*MICPC+I 


017314 


102051 


<JUMPJBR0CONl<IDL£-INITfc3000*4>l<IDLE-INITfc777/2>> 


P17316 




ALWAYS EC 2 




1,00376 


MICPC«MICPC+1 


017316 


114752 


<JUMP1 ALCOND J<EC2-IWIT63000*4>i<EC2-INITt777/2>> 


017320 




SZERO 




300377 


HICPC»MICPC+1 


C17320 


000000 


000000 



855 



DMCll DDCF PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12125 PAGE b-24 PAGET 0182 



DDCHGri 


("AC 2 


•APP-77 10:16 


RBASR V" 


-wFTFIVF MIFF* ir a trinoFSC siFBuTfir 


857 




C 1 7 322 




)»ini 1 T 1 WWW 


858 




{500377 






859 








1 5BTTL PC V A • »R0UTIN E TO HANDLE F IR5T DDC HP C H AR AC TER 










jtn jtnLu r Hvn iUut LUur 


661 








• niTTPDM t Pipe T F MCCC KflV TVDE 1 T C NltMBFDirn llNHllMuFDCT) OD RDDT 

j iLnninta ir nci&^jiuiLt lift, lo nu~BCfrtC(U f unfluriD&KLU un duui 


962 










86 3 


1 1 7 32? 




RCV Aj 


SP IBUSf RC VDATf SP0 jPEAD RECEIVE CHARACTER TO 5P0 


c i ) 




010040k) 






( l ) 


617322 


023200 




<M0VE ! SPXi I BUS I RC VDAT I SP0> 


864 


1917324 






BRtoRTE BRfSETjAISPl fREAD PORT STATUS WORD 


( I ) 




#00401 




MICPC B MICPC+ 1 


( 1 ) 


01 7324 


060601 




<W0 VE 1 WPTEBR1 BR 1 <SELA1 SPl>> 


865 


$17326 






BR0 5$ j IF XNIT H0UE»*"0NLy BOOT OK 


( 1 ) 




000402 






CI) 


017 326 


1 S96ft 1 2 






866 


6! 7 330 








( I ) 




090403 




MICPC |C MICPC + 1 


( 1 ) 


017330 


147412 






867 


8*17 332 






BRHRTE IWH| 201 J SOH TO BR 


( 1 ) 




000404 








£173 32 


00060 I 






868 


f 1 7 3 34 






PUD RD CDa irAMDIDr AD Trt tDa 
f r OKf orB J WUnrAnL DK XU art? 


[}; 




000 405 








017334 






<SUBTC 1 BR J SP0> 


869 


fcl 7 3 36 






Z RAl jIF EQUAL - IS NUMBERED MESSAGE 


( 1 ) 




&00406 




11 tf DP Eli I rOCi 4 


( 1 ) 


017 336 


101 740 




< JUMP i ZCOND I <RAl "*IN1T&3000#4^ 1<RA1— INIT&777 /2>^ 


87d 


CI 7 340 








( 1 ) 




000407 




*n ii> B n xv. n. t i 


( 1 ) 


017 343 


000405 




<M0VE1 WRTEBR J I MM I <5» 


871 


017342 






CMp BR*SP0 'COMPARE ENU TO SP0 


( 1 ) 




000410 




MICPC S MICPC+1 


( 1 ) 


017342 


060360 




<SUBTC 1 BR1 SP0> 


872 


01734 4 






Z RAJ % IF EQUAL*IS UNNUMBERED MESSAGE 


( 1 ) 




00041 1 






1 1 ) 


017344 


1 45422 




< JUMP J ZCOND 1 <RA2*IN IT&3000*4> 1 <RA2 ™IN IT&777 /'Z>'> 


8 7 3 


01 7 346 






BRWRTE IMM p 2 20 } OLE TO BR 


CI) 




0004 1 2 




nil t*L. * n x t tr\, t 1 




t 17346 






>nuK6j wr\ x&dk £ inn i 


874 


01 7 35tf 






r md dd CDa • PftMD&Dir ni.fc' *n cdo 
t Dftf orp jtvnrHnCi uul TU ore 


( 1 ) 




0H041 3 








tfl 7353 


060360 




«T ClinTr* t RD t CDiA\ 


875 


£ 17352 






C DUUi J XT &UUAXJ lO bUUl 


( 1 ) 




0004 1 4 




MTPPrsM TTDr* 1 
niL rt*niti'\, t x 


( 1 ) 


01 7352 


1 05 756 






876 


017 354 




FLUSH j 


OUTPUT I MM - *f oaa ! ODPVI*Oi •FT.T1CH TUDIIT cTT.fl 


( 1 ) 




(7004 1 5 




MTrprKHTrpr+1 

"ltrU*nitrt T x 




017 354 


00221 2 




<M0 VE1 NROUT i IMM i<200 1 ORC VC0S*> 


877 








• n.ny nonirD httc Qiran nuf.v^ 

J VLUii Unudn DXlo rbnU UnulJ 


879 


fc 1 7 356 






HRWP.TE IMM. 147 *M&^K TO fT.KADB.rT.FBD 1PTIUK 


( 1 ) 




000416 




HICPC«HICPC+1 


(1) 


017356 


000757 




<M0VE!NRTEBR!IMM1<357» 


B79 


017360 






SP BR* AANDB.SP10 f IN LINE STATUS WORD 


(1) 




000417 




MICPC-M1CPC+1 


(1) 


£17360 


063270 




<MOVE!EPXiBRiAANOBISP10> 


884 


*17362 




RHls 


STATE RCVA 



DMCll ODCMP PP0T0C0L IMPLEMENT AT IOH MACY11 30(1046) ll-JUL-77 12125 PAGE 6-25 PAGES 0183 

DDCHGH.WAC 21-APR-77 10:16 RCVA— ROUTINE TO HANDLE FIRST DDCMP CHARACTER 



( 1) 




000420 




MICPC=H1CPC+1 




(1) 


B173b2 


0004021 




<MOVElHRTEBfUIMNl<RCVA-INIT6777/2» 




«85 


»I7364 






ALWAYS REXIT 




(1) 








HICPC«MICPC+1 




(1) 


017364 


180450 




<JUMPlkLCONDI<REXIT-INIT&3000*4>l<REXIT 


-INITfc777/2» 


887 


617366 




RA2 i 


STATE RCVI ;CHANGE 


RECEIVE STATE 


(1) 




000422 




MICPC«MICPC+1 




(1) 


017366 


000665 




<MOVElWPTEBRlIHM!<RCVI-ISI«777/2>> 




889 


01737d 






ALMAXS REXIT 




(1) 




004423 




MICPC»M1CPC+1 




(1) 


117370 


130450 




<JUMPt ALCOHDJ<REXIT-INITi3«00*4>i<REXIT 


■INITi777/2» 



DMCll DDCMP PROTOCOL IMPLPMKNTATION 
DDCHGH.MAC 21-APR-77 10:16 



MACY11 30(1046) ll-JuL-77 12J25 PAGE 6-2b 

RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 



PAGE | 



0184 











007 






j ENTERED FROM IDLE LOOP 


at a 
899 






• CTfinfr' c count PTirr.n lun cf*pc hd orvf sc u^yt ei»* tit 


900 


917372 






90 1 


£17372 




CD THtlC . or WniT. CDi . DFin rHSBSf'TPB TO CDi 

or isuoi r<^» on | no*»i> v iiakhi, x tr 1 u oirs 


» ! J 




000424 








ft jt94 


< MO VE iSFXil&uSi RC VD AT i SF4^ 


962 


£17 374 




LDM A BR ^ 4.SFLA 1 SP1 4> J LOAD MAR W XIH ADDRESS OF CURRENT 


(11 




000425 


HICPC^MlCPCt 1 


( 1 ) 


SS17374 


070214 


<MOVE 1 LDM Aft J BR I <5ELA i SPl 4>> 


9tf 3 


S17376 




BRWRTE MEMX* INCMARl SELB • READ FLAGS BYTE 






00S426 


HICPC*HICPC+i 


( 1 ) 


917 376 


£54620 


< MOVE I WRTEBR i MEMXl <IKCMARJ SELB>> 


904 






BR0 RBi jRECV BUFFER ASSlt»NED»*«COf< XI«UE 


( 1 ) 




000427 


MICPC^MlCPC+l 


( 1 ) 


§1 740$ 


1 06041 


< JUMP I BR0CON 1 <RBl*INITfc3000*4> i <RB1 "INIT&77 7 /2>> 


90S 


£17402 




BRWRTE BRr5ELA!5Pl ;READ STATUS BYTE 


( 1 ) 




090430 


MICPC=H1CPC+1 


C 1 ) 


917 402 


060601 


<MOVE I WRTEBR 1 BR J<SELAt SPl>> 


906 


ti 7 404 




BR7 RB3 j MA INT MODE 


1 1 ) 




000431 


MICPC E MICPC+1 




017 404 


1 07437 


< JUMP! BR7C0N 1 <R83«»INITfc3000*4> 1 <RB3*INJTfc777 /2*^ 


90 7 


617406 




LDM A IMH f T * ERROR* M LOAD TYPE FIELD ADDRESS IN MAR 






C00432 




f 1 1 

qifl 


017406 


010151 






PI 7 410 












MICPC fi MICPC+l 




£17410 


016402 


<MOVE I HRMEM i INCHAR X I MM £ K2^^ 




CJ17412 




ncin x nn f Jiw |Jjuau duo Urt nu our r tnd 


f 1 1 

: " : 






kf T £ DP z H I f DC A 1 




£17412 


£i'2710 


<M0 VE J WPMEM 1 IMM ' <3 1 0>> 


„: 


617414 




LOMA IMM*NTLS 


i i 




0004 35 




f i t 


917 414 


01001 2 


<MOVE 2 LDMAR \ IMM ! <WTLSfc377>> 


911 


f- 1 7 4 1 6 




ALWAYS RH5 'BRANCH TO SEND NAK ROUTINE 


C 1 ) 




000436 


MICPC«MICPC+ 1 


( 1 ) 


£17416 


1 k)4552 


< JUMP I ALCONDI<RH5-INITt3000#4>i<RH5-INIT&777/2>> 


912 


717420 




KB 3: BRHRTE IMM, 4 ;MASK FOR NO BUFFER AVAILABLE 


( 1 ) 




000437 


MICPC s MICPC+i 


( 1 ) 


(!) 7 420 


000404 


<MOVE J WRTEBR I IMM J <4» 


913 


617422 




SP BRf AORBy SPl * SET THE FLAG 


( 1 ) 




000440 


HICPC'MlCPC+l 


( 1 ) 


717422 


£63301 


< MOVE J SPX! BR1 AORBl SPt> 


914 


017424 




RBI j STATE RCVC 






000441 


MICPC 3 MICPC+1 


( 1 ) 


f 17424 


090461 


<M0VE1 WRTEBRi IMMi<RCVC-IHlT6777/2» 


915 


#17426 




RB0 : SP BR,SELB,SP3 


(1) 




000442 


KICPC«MICPC+i 


(1) 


917426 


063223 


<M0VE I SPX { BRi SELB 1 SP3> 


916 


«17430 




OUTPUT <MEMX!INCMAR>,<SELB!0BA1> ;OUTPUT LOW ORDER BYTE OF ADDRESS 






900443 


MICPCsMICPC+i 


(1 ) 


017430 


056226 


<M0VE1 WPOUT! MEMXi INCMARKSEL61 0BA1>> 


917 


317432 




OUTPUT HEMX1INCMAR,<SELB!0BA2> yOUTPUT HIGH BYTE OF ADDRESS 


(1) 




000444 


MICPCeMICPC+1 


(1) 


C17432 


056227 


<M0VEIWR0UT!MEHX1INCMAR1<SELB10BA2» 



DMCll ODCKF PROTOCOL IMPLEMENTATION MACX11 30(1046) ll-JUL-77 12:25 PAGE 6-27 PAGE: 0185 

DDCHGH.MAC 21-APR-77 10:16 RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 



918 


017434 




SP IBUS,UBBR,SP0 


;READ THE BUS REQ REGISTER 


(1) 




0004 45 


MICPC«HICPC+1 




(1) 


P17434 


123220 


<MOVE 1 SPX ! IBUSi UBBR1 SP0> 




919 


017436 




BRWRTt IMM, 101 


; MASK OFF ALL BUT NXM AND V tC4 BITS 


(1) 




000446 


HICPC»HICPC+1 






£17436 


90353! 


<BOYE! WRTESRJ IMM ! <1 01>> 




920 


C17440 




SP BR, AANDB, SP0 


; AND SAVE IN SP0 


(1) 




000447 


MICPC»M1CPC+1 




(1) 


017443 


Z63260 


<MOVE! SPX! BP i AANDBl SP0> 




921 


C17142 




SP IMM,300,SP5 


J MASK TO ISOLATE EX. MEM BITS 


f 1) 




000450 


MICPC*MICPC+1 




(U 


fcl7442 


003305 


<M0 VE t SPX I IMM | 3001 SP5> 




922 








;NOTE THIS REALLY WRITES A 305 BUT THE 


923 








>5 GETS SHIFTED OUT 


924 


H7444 




BRWRTt MEMX, AANDB JSP5 


; MASK ALL BUT EX. MEM BITS 


CI) 




000451 


MICPC«MICPC+1 




(1) 


£17444 


040665 


<MOVE! WFTEBR1 MEMX! <AANDBJ SP5>> 




925 


•17446 




BRSHFT 


(SHIFT THEM INTO THE CORRECT POSITION 


(1) 




Bf-0452 


MICPC»MICPC+1 




(1) 


917446 


00162.) 


<MOVE ! SHFTBR1 WRTEBR1 SELB> 




926 


017450 




LRSHFT 




(i) 




000453 


HICPC»MICPC*i 




(1) 


»17450 


001620 


<MOVE ! SHFTBR 1 WRTEBR 1 SELB> 




927 


217452 




BRSHFt 




( 1) 




000454 


HICPC»MICPC+1 




(1) 


B17452 


001620 


<MOVE ! SHFTBR! WRTEBR 1 SELB> 




928 


017454 




BRSHFT 




(1) 




000455 


MICPC«MICPC+1 




(1) 


017454 


001620 


<H0 VE I SHFTBR ! WRTEBR 1 StLB> 




929 


817456 




OUT BP, A0RB10BR 


( WRITE EX MEM BITS OUT 


(1) 




k/00456 


MICPC-MICPC+1 


(1 ) 


K17456 


06131 1 


<MOVE!hPOUTX!BRI<AOPB10BR» 




930 


01746? 




ALWAYS IDLE 




(1) 




£>00457 


HICPC«MICPC+1 




CI) 


C17460 


100451 


<JUMP1 ALCOND!<IDLE-INIT63000*4>J<IDLE-INlH777/2» 


931 


£17462 




RB2: ALWAYS 12 




C 1 1 




CZ0460 


MTPPC*MICPC*1 




(1) 


617162 


U0456 


<JUMP!ALCONDKI2-INITfc3000«4>!<I2-INIT&777/2» 



DMC11 DDCHP PROTOCOL IMPLEMENTATION 
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HCVC--ROUTINE 10 HANDLE SECOND CHARACTER OF COUNT FIELD. SELECT AND FINAL 



933 
934 
935 
936 
937 
938 
943 

:n 
:i) 

>*4 

tt) 

tn 

MS 

tn 
tn 

)46 
11) 

m 
)*i 

:i) 

in 

J48 

in 
[D 

J49 

[ J ) 

[ 1 ) 

951 
1) 
CI) 
952 
[1) 
II) 



.SBTTL KCVC— ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 

; ENTERED FROM IDLE LOOP 

; INTERPRETS SELECT AND FINAL 

{CHECKS FOB COUNT TOO LARGE 



017464 
017464 



017464 
017466 



017466 
01747k» 



017470 
017472 



017472 
617474 



017474 
(317476 



617476 
017500 



017500 
017502 



017502 
017504 



000461 
023205 



000462 
B00600 



000463 
0b0665 



000464 
063310 



000465 
010167 



000466 
076604 



000467 
076605 



310470 
000472 



000471 
100450 



SP IBUS,RCVDAT»SP5 
MICPC-MICPC+1 

<M0VEISPX!IBUS1PCVDAT1SP5> 
BRHRTE IMH,200 
MICPC»MICPC+l 
<MOVE!WRTEBR1IHMJ<200» 
BRWRTE BR,AANDBtSP5 
MICPC*MICPC+1 

<M0VE1WFTEBR1BR1<AANDBI8P5» 
SP BR,AORB,SP10 
MICPC«MICPC+1 
<MOVE I SPXIBRt AORB I SP1 0> 
LDHA IMH,BC 
MICPC*MICPC+1 
<N0VE1LDMAR1IMM!<BC&377» 
HEMINC BR, SELAISP4 
HICPC=MICPCtl 
<H0VE1 HRHEM! INCMARI BRKSELAtSP4>> 

MEMINC BR,SELA!SP5 ; AND NOW HIGH BYTE 

«ICPC*MICPC+1 

<M0VE1 WPHEM J INCMARi BRJ <8ELAt SP5>> 

STATE RCVD ;5ET NEXT STATE TO 

MICPC*MICPC+1 

<MOVElHPTEBR!I«Mi<RC¥D*IIIITfc777/2» 

ALWAYS REXIT 

HICPCnMICPC+1 

<JUHPlALCONDJ<REXIT-INITt3000»4>l<REXIT-INITi777/2» 



; GET CHARACTER 



; SEPARATE SELECT BIT FROM COUNT 



{LOAD MAR TO BYTE COUNT 



{SAVE LOW BYTE 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JOL-77 12125 PAGE 6-29 PAGE! 0187 



DDCHGH. 


"AC 2 


-APR-77 10:16 


RCVD— ROUTINE TO HANDLE RESPONSE FIELD 


FOR NUMBERED MESSAGES 


954 

955 






.SBTTL RCVD-. ROUTINE TO HANDLE 


RESPONSE FIELD FOR NUMBERED MESSAGES 


956 


P175J6 




; 

PCVDs STATE RCVE 




(1) 




000472 


MICPC«MiCPC+l 




(1) 


CI 7506 


8C0513 


<M0VE1 WRTEBRI IMNKRCVE-miW777/2» 


957 


017510 




RD2 : SP BR,SELB,5P3 


{SAVE THE STATE 


(J) 




B00473 


MICPC-MICPC+1 


(1) 


ei751tff 


063223 


<M0VEiSPXIBRlSELBISP3> 




958 


017512 




SPBR IBUS,RCVDAT,SP0 


; INPUT THE CHARACTER 


(1) 




000474 


MICPC«MICPC+1 




(1) 


K17512 


023603 


<MOVE ! SPBRX ! IBUS i RCVDAT1 SP0> 




959 


1*1751 4 




BRWRTE BR,SUBJSP17 


{COMPARE NEW R TO LAST R 


(1) 




S100475 


MICPC"MICPC+1 




C i j 


*175i i 


BDl.JS >' 


<M0V£iWRT£BRiBRl<SUB16P17» 




960 


017516 




BR7 10$ 


;IF NEW IS GREATER— PROCESS 


(1) 




000476 


HICPC»MlCPCfl 




CD 


G17516 


107500 


<JUHPSBR7CONl<10$-INIT*3000«4>l<10$-INITS,777/2» 


961 


C17520 




ALWAYS IDLE 




(1) 




300477 


MICPC»M1CPC+1 




(1) 


017520 


100451 


<JUMP[ALCONDl<IDLE-INIT63000»4>KIDLE-INIT4777/2» 


962 


017527 




10$: BRWRTE BR,SELA1SP1 


; READ STATUS BYTE 


(1) 




000500 


MICPC"MICPC+1 




(1) 


017522 


060601 


<M0VEIWRTEBR1BR!<SELA|SP1» 




963 


017524 




8R7 IDLE 


{MAINT, MODE - GET OUT 


(1) 




000501 


HICPC*MICPC+i 




(1) 


017524 


103451 


<JUMPlBR7CONl<IDLE-INITl3000*4>l<IDLE-INITi7 77/2>> 


964 


017526 




BRWRTE BR,SELAiSP10 




(1) 




000502 


MICPC»HICPC+1 




(1 ) 


B17526 


£60610 


<MOVEIWRTEBR1BR!<SELAJ5P10» 




965 


917530 




BRSHFT 




(1) 




000503 


MICPC«M1CPC+1 




(1) 


017S30 


041620 


<MOVE J SHFTBR i WRTEBR i SELB> 




966 


017532 




BR4 IDLE 




(1) 




0H0504 


MICPC*MICPC-H 




(1) 


SM7532 


103051 


<JUHPlBR4CONKIDLE-INltli3000»4>i<IOLE-INIT&777/2» 


967 


017534 




LDHA IMM.ISP17 


{ADDRESS LAST ACKED IMAGE 


<1) 




0J0505 


MICPC«MICPC+1 


(1) 


K17534 


fl ^1 53 


<M0VEILDMAR!IMM!<ISP176377» 




968 


017536 




MEM BR,SELA!SP0 


;COPY THE CHAR 


(1) 




bS050b 


MICPC«MICPC+1 




(1) 


017536 


062600 


<MOVEi WRMEM ! BP KSELA 1 SP0>> 




963 


H754I" 




RD5: BRWRTE 1MM ! LDMAR* REPST 


{SET UP COUNT FOR TIMER 


(1) 




i»005»7 


MICPC=MICPC+1 




(1) 


21 7540 


H3403 


< MOVE! WRTEBR ! IMMJ LDMAP 1<REP5T>> 




97a 








; ##»»DEPENDENT ON REPST = 2 


971 


1(17542 




MEM IMM,1 


; RESET PEP THRESHOLD 


(1) 




C00510 


MICPC«MICPC+1 




fl) 


S51 7542 


i. 02401 


<M0VESWPMEM!IMM!<1>> 




972 


017544 




SP BR,SELB,SP15 


{ RESET THE COUNT 


(1) 




00051 1 


MICPC«M1CPC+1 


(1) 


H7544 


E63235 


<M0VE!SPX!BR!SELB!SP15> 




973 


CI 7546 




ALWAYS IDLE 




(1 ) 




,(0351 2 


MICPC*MiCPC*l 




(1) 


M754h 


1u?451 


< 'UMP!ALCONDt<IRLE-INlH3000*4> 


!<IDLE-lNlTi?77/2>> 



DMCU DDCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC il-APfc-77 10:16 



HACY11 30(1046) ll-JUL-77 12125 PAGE b-30 
RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 











SfiTTL RC VE-— ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 


976 
977 


4>1 7553 




RCVEl 


} 

UDWI9TF an _ CGT. a 1 CD 1 tDFAft VHP CTfiTTTC RVTS" 


( 1 ) 




E?tf051 3 




MICPC B M1CPC+1 




£17553 


06060 1 




<H0 VE *WRTEBRIBR!^SELA1SP1^^ 


978 


g j 7552 






BR7 RCVQ 


( 1 ) 




P005 1 4 




MICPC*MICPC+1 


CI) 


£17552 


1 07703 




< JUMP1 BP7C0SJ <RC¥0«IMIT638S8«4> l<RCVa»INITi777/2>> 


979 


£17554 






BRWRTE IBUSrRCVDAT 'INPUT THE CHARACTER 


1 1 ) 




040515 




MICPC«M1CPC+1 


( 1 ) 


VI 7554 


020600 




<MOYEI WRTEBR1 IBUS|<RCVDAT>> 


98a 


£17556 






CMP BR,SPll 






1/30516 




KICPCsMICPC+1 


( 1 ) 


01 7556 


060371 




<SUBTC{BRtSPll> 


981 


S3 7S6<) 






Z 5S 


( 1 ) 




000517 




MICPC=HICPC+1 


( 1 ) 


PI 7560 


1 ^5522 




<JUMPlZCQND!<56-INITfc3000»4>i<58-INIT4777/2>> 


962 


01 7562 






SP BRfDECAfSPlS 'FORCE MSG TYPE TO -I 


( 1 ) 




009520 




MICPC*MICPC+1 


( 1 ) 


017562 


fcb31 7 3 




<M0VEISPX!BR1DECA!SP13> 


98 3 


§} 7554 






ALWAYS RE2 


( 1 ) 




£00521 




HICPC*MICPC+1 


(1) 


k>17564 


104523 




<JUMP1 ALCOND:<RE2-INIT63000«4>KRE2-INIT4777/2» 


9b4 


617566 




5$: 


SP BR,INCA,SP11 ; UPDATE R FIELD 


(1) 




000522 




MICPC*MICPC+1 


CI) 


t'17566 


i>63071 




<MOVElSPX!BR:iNCA!SPll> 


98S 


C17570 




RE2J 


STATE RCVF } NEXT RECEIVE STATE IS F 


(1) 




200523 




HICPC*MICPC*1 


(1) 




000525 




<M0VEIWPTEBRlIMMJ<RCVF-IHItST77/2» 


986 


017572 






ALWAYS REX IT 


(1) 




000524 




KICPC«MICPC+1 


(1) 


yl 7572 


100450 




<JUMPi ALCONDl<REXIT-INITt3000*4>i<REXIT-INITS777/2» 



DMCll DDCMP PROTOCOL IMPLEMENTATION 



DDCHGH.HAC 21 


•APR- 7 


983 






989 


fC 17574 




CD 




900525 


CI) 


S17571 


963164 


990 


017576 




( 1 ) 




B00526 


(1) 


fcl7576 


1.35130 


991 


K17600 




(1) 




000527 


(1 ) 


017b00 


663165 


992 


417602 




(1) 




S00530 


C 1 ) 


017602 


0<?0533 


9V3 


317604 




CI) 




000531 


(1) 


£17604 


920200 


994 


£17606 




(1) 




000532 


U) 


C17606 


140450 


995 






996 






997 






998 


017610 




CI) 




000533 


CI) 


017610 


000535 


999 


U17612 




(1) 




0005 34 


(1) 


B17612 


104531 



MAC Y 1 1 30(1046) ll-JUL-77 12125 PAGE 6-31 
RCVF— ROUTINE TO IGNORE ADDRESS 

.SBTTL RCVF— ROUTINE TO IGNORE ADDRESS 
RCVF: SP BR,DECA,SP4 ;DECREMENTLOW BYTE OF COUNT 

MICPC=M1CPC+1 
<M0VE1SPX1BR1DECA!SP4> 

C RCVF0 ;N0 OVERFLOW 

MICPC»MICPC+1 

<JUMPJCCOND!<RCVF0-INIT630B0*4>i<RCVF0-INIT&777/2» 
SP BR,DECA,SP5 ; OVERFLOW - DECREMENT HIGH BYTE 

MICPC»M1CPC+1 
<M0VE!SPX1BR1DECA1SP5> 
RCVF0: STATE RCVG 
MICPC'MICPC+1 

<H0VElWPTEBRlIMMJ<RCVG-miT6777/2» 
RCVFl: NOP IBUS,PCVDATf jINPUT CHARACTER - AND DISCARD 

MICPC»MICPC+1 
<IBUS!RCVDAT!0> 
ALWAYS REX IT 
MICPC«HICPC + 1 

<JUMPULCONDJ<REXIT-INITfc3000*4>l<REXIT-INITS777/2» 
.SBTTL RCVG— ROUTINE TO IGNORE CRC1 



; NEXT STATE Is RCVH 



! 

STATE RCVH 
MICPC»HICPC+1 
<MOVElNRTEBRlINMl<RCVH-INIK777/2» 
ALWAYS RCVFl 
MICPCsMICPC+1 

<JUHPlALCONDJ<RCVFl-INITi300^»4>KRCVFl-INITS777/2» 



DMCll DDCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APP.77 10:16 



MACY11 314(1046) ll-JUL-77 12:25 PAGE b-32 PAGEl 0190 

RCVH — ROUTINE TO HANDLE CPC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



1001 






.SBTTL RCVH— ROUTINE TO HANDLE 


CRC2 AND 10 DISPATCH NUMBERED AND UNNUMBERED TYP 


1 002 






} 










RC VH g 




1 Ml 

fit 






SP IBUS,RCVDATrSP0 


fGET CHAR IN SP0 


* 




0005 35 


MICPC*H1CPC+1 






t ■» - 1 


02 3 200 


<M0VE1SPX1 IBUS1RCVDATJSP0> 




I 005 


317616 




BRWRTE IBUS,RCVCON 


• READ RECVR CONTROL REGISTER 


( 1 ) 




£00536 


MICPC«MICPC+1 




( 1 ) 


51 7616 


020640 


<M0VE1 WRTEBR 1IBUSKRCVC0N» 




1 006 


01 7620 




BR0 TD0N1 


;IF BCC MATCH SET CKC IS GOOD 


(1 ) 




000537 


HICPC*M1CPC+1 




( 1 ) 


017620 


1 1 6165 


<JUMP:BP0CONl<TDONl-IHITfc3000»4>i<TDONl-INITi777/2» 


1037 


017622 




BRWRTE BR,SELA1SP1 


; READ STATUS BYTE 


( 1 } 




000540 


MICPC=MICPC+1 




( 1 ) 


P17622 


060601 


< MOVE! WRTEBR! BR KSELA I SP1>> 




1 009 


01 7624 




BP.7 RHX 


(MAXNT MODE 


( 1 ) 




000541 


MICPC=MICPC+t 




( 1 ) 


017624 


107740 


<JUHPlBR7CON!<RHX-INIT43000»4>i<RHX-INin777/2» 


1 0itf9 


01 7626 




BRHRTE DP,<SELA}SP10> 


; READ PORT STATUS WORD TO BR 


( 1 ) 




008542 


MICPC*MICPC*1 




( 1 ) 




060610 


<MOVE!WRTEBRSDP!<SELA|SP10» 




1010 


(<17630 




BRSHFT 




( 1 ) 




000543 


MICPC»MICPC+1 




( 1 } 




001623 


<H0 VE i SHFTBR t WRTEBR 1 SELB> 




1011 


01 7632 




BR4 SNAKJ 


;IF START MODE— PROCEED TO RESEND START 


( 1 ) 




£00544 


MICPC*MICPC+1 




( 1 ) 


017632 


117 307 


<JOHPlBR4CON{<SNAKl-INITS3000»4>J<SNAKl-IHITS,777/2» 


1012 


017634 




LDMA IMM,T 


>ELSE BCC ERROR— LOAD ADDRESS OF TYPE FI 


CI) 




000545 


MICPC»MICPC+1 




( 1 ) 


P17634 


010151 


<H0VE!LPMAR1IMM!<T&377» 




1013 


H7636 




MEMINC IMM, 2 


(WRITE NAK TYPE 


C 1 ) 




000546 


MICPCiMICPC+1 




( 1 ) 


017636 


B16402 


<M0TE 1 NRMEH1 INCMAR1 IMH 1<2» 




lfcl4 


017640 




MEMINC IMM, 301 


; WRITE HEADER BCC ERROR SUBTYPE 


CI) 




000547 


MICPC«MICPC+1 




C 1 ) 


fcl7640 


01 6701 


<M0VE! WRMEM|INCMAR1IMMJ<301» 




1015 


PI 7642 




MEM BR,SELAiSP17 


; RESTORE LAST ACKED IMAGE 


CI) 




000550 


MICPC«MICPC+1 




( 1 ) 


01 7642 


062617 


<M0 VE S HRMEM ! BR i <SELA i SP1 7» 




1016 


01764 4 




LDMA I MM, NHDS 


f ADDRESS CUM ERROR COUNTER 


CD 




000551 


MICPC«MICPC+1 


CI) 


17644 


01 001 3 


<M0VE1LDMAR!IMM!<NHDSS377» 




1017 


1*1 7646 




RH5: SP MEMX,SELB,SP0 


; WRITE IT TO SP0 


CI) 




&00S52 


MICPC»HICPC+1 




C 1 ) 


fc>l 76 46 


04 3220 


<M0VE ! SPX ! MEMXi SELB 1 SP0> 




1018 


fil 7650 




MEM BR, INCA!8P0 


; INCREMENT IT 


CI) 




t 00553 


MICPC=MICPC+1 




CI) 


1)17650 


fc>62460 


<N0VE 1 HRMEM i BR ! < INC A 1 SP0» 










LDMA IMH,NAKST 


(ADDRESS NAKS TMTED DYNAMIC 


(1) 




000554 


MICPC*MICPC+1 




CI) 


kit 7652 


010001 


<M0VE1LDMAR2IMM'<NAKST&377» 




1020 


P17654 




BRWRTE MEMX.SELB 


;WRITE IT TO BR 


C 1 ) 




000555 


MICPC«HICPC*1 




1 1 ) 


J17654 


040620 


<MOVE! WRTEBR i MEMXK5EliB» 




1021 


£17656 




BSHFTB 


;SHIFT IT RIGHT 


CI) 




000556 


MICPC«MICPC+l 





DMCll DDCMP PROTOCOL IMPLEMENTATION MACYll 30C1M6) ll-JUL-77 12125 PAGE 6-33 PAGE: 0191 

DDCHGH.MAC 21-APP-77 10116 RCVH— ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



(1) 


U17656 


061620 


< HOVE 1 SHFTBR 1 SELB 1 BP> 


1022 


1)17660 




MEM BR, SELB ; UPDATE IT 


(1) 




000557 


HICPC«MICPC+1 


CI) 


i'1 7660 


£62623 


<H0V£1 WRMEM1 BR 1<SELB°» 


1023 


**,17662 




BR0 NTHRES ; BRANCH IF THRESHOLD EXCEEDED 


C 1 ) 




000560 


MICPC«MICPC+1 


CI) 


U17662 


116256 


<JUMP!BR0CONI<NTHRES-INIT&3000«4>i<NTHRES-INITt777/2» 


1024 


317664 




ALWAYS SNAK 


C 1 ) 




e-<>05&l 


MICPC«M1CPC+1 


CI) 


U17664 


1 14704 


<JUMP!ALCONDKSNAK-INIT43000«4>l<SNAK-INIU.V77/2>> 




P17666 




8H3: BRWRTE DP,<DECAJSP13> ) LOAD TYPE RECEIVED — DECREMENTING 


CI) 




M0562 


MICPC*M1CPC+1 


CI) 


L17666 


060573 


<M0VE1 WRTEBRIDP!<DECA!SP13» 




35 767;: 




I KH1 J IF ALUOUT IS ALL ONES IS NUMBERED 


(1) 




000563 


MICPC*MICPC+1 


(1) 




115467 


<JUMP!ZCONDi<RHl-INIT(3000»4>!<RHl-INITfc777/2» 


1027 


B17672 




RSTATE RCVA 


CI) 




000564 


MICPC*MICPC+1 


(1) 


t'17672 


E00400 


< MOVES WRTEBR1 IMMl<RCTA-l»IT6777/2» 


(1) 




000565 


MtCPC"HICPC+l 


C 1 ) 


ai 7674 


063223 


<MQVE! SPX! BRl SELB ISP3> 


102B 


B17676 




BRWRTE DP,<SELA1SP10> ; LOAD LINE STATUS WORD IN BR 


CI) 




000566 


MICPC«M1CPC+1 


(1) 


017676 


[60610 


< MOVE I WRTEBR 1 DP 1 <SELA t SP1 0» 


K34 


*»1 770*1 




OUTPUT IMN,<2001ORCVCO> 


CI) 




000567 


MICPC«MICPC+l 


CI) 


017700 


002212 


<MOVEi WROUT ! IMM K200 1 ORCVCO» 


If 36 


(>17702 




BRSHFT J SHIFT RIGHT 


CI) 




000570 


HICPC«MICPC+1 


CD 


f 17702 


001620 


<M0 VE 1 SHFTBR 1 WRTEBR i SELB> 


1037 


017704 




BR4 10» 


C 1 ) 




01*0571 


MICPC«MICPC+1 


C 1 ) 


JM7704 


107177 


<JUMPlBR4CON{<10t>IKI«3000«4>i<10$-INIT^777/2» 


1039 


017706 




LDMA IMM.TYPTAB j ADDRESS TYPE TABLE 


C 1 ) 




000572 


MICPC«MICPC+1 


CD 


W17706 


010162 


<M0VE1 LDMAR ! IMM ! <TYPTABS377>> 


1039 


»17710 




CMP <MEMXIINCMAP>,SP13 


CD 




000573 


MICPC"MICPC+1 


CD 


f,17710 


054373 


<SUBTC1MEMX2INCMAR1SP13> 


10 40 


«17712 




Z REP 


C 1 ) 




000574 


MICPC»MlCPCtl 


C 1 ) 


*»1 7 7 1 2 


115411 


<JUHP2ZCONDt<REP-INITi3000*4>!<REP-INITfi777/2» 


1K41 


117714 




CMP <MEWX{ INCMAR>,SP13 


CD 




t' «50575 


mCPCoMICPC+1 


CD 


ifl 7 714 


054373 


<SUBTC1MLMXIINCMAF|SP13> 


11-12 


'"17/16 




Z NAK 


CD 




W005 76 


MICPC«MICPC+1 


C 1 ) 


117716 


1 15445 


<JUMP!ZCOND!<NAK-lNlT&3000*4>!<NAK-INIT>i7 77 /2» 


104 3 


/17720 




10$: LOMA IMM, TYPSTT ;SET POINTEK TO START TYPfc 


C 1 ) 




000577 


MICPC«M1CPC*1 


CI) 


V>1 772*.} 


013164 


<MOVE!LUMARlIMH!<TYPSTTfc37 7» 


1044 


J17722 




CMP <MEMX! INCMAH>,SP13 


C 1 ) 




■Jtf0600 


•UCPC"MICPC + 1 


( 1 ) 


017722 


354373 


<SHBTC!»EMXJINCMAR!SP13> 


IH45 


,M7724 




I START 


CD 




0?06f?! 


HICPC*M1CPC+1 



DHCli ODC*P PROTOCOL IMPLEMENTATION 
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MAC HI 30(1846} U-JuL-77 12*25 PAGE o-34 PAGEi £192 

RCVH-.ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



(1 ) 


117724 


1 15420 


<JUWPIZCONDi<START-INITS3000«4>KSTART-INIT6777/2» 


1046 






j STACK TYPE 


1047 


C17726 




CMP <MEMX1INCMAK>,SP13 


{ • } 




l»i>0682 


KICPC=KICPC+i 


tl ) 


(#17726 


054373 


<SOBTC J MEMX t INCMAR J SP1 3> 


1048 


B17730 




Z STACK 


CI) 




P&0b93 


MICPC=MICPC+i 




£17733 


115432 


<JUMP:ZCONDi<STACK-iNIT&300e#4>i<STACK-IJiITi777/2» 


1049 


B17732 




CMP <MENX!INCMAR>#SP13 JACK TYPE 


tl) 




000604 


MICPC»MICPC+1 


(1) 


017732 


054373 


<SUBTC1MEMX< INCHARiSP13> 


1858 






Z ACK 


CI) 




S80b05 


MICPC«MICPC*1 


CI) 


F17734 


1 01746 


<JUMPlZCOND!<ACK-INlTS3000*4>J<ACK-INIT6,777/2» 


1051 


017736 




ALWAYS IDLE J OTHERWISE 


CI) 




900606 


MICPC»HICPC+1 


CI) 


»17736 


100451 


<JUMPlALCONDJ<IDLE-IHITS3B00*4>l<IDLE-INITi777/2» 
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DDCHGH.MAC 21-APB-77 10(16 RCVH— ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



10b5 






;****»**»**<«****»TIME CRITICAL CODE-- CHANGE 


WITH GREAT C ARE#»»»«###***»**»»*»»# 


li566 








.SBTTL RCVKOI— ROUTINE TO HANDLE FIRST BYTE ODD RECEIVE 


1(?67 


017740 




RCVKOi: 


SPBR IBUS,NPR,SP0 


; READ NPR REGISTER 


CI) 




000607 




MICPC=MICPC+1 




CI) 


l!1774e 


1 23600 




<MOVE!SPBRX»IBUSlNPRiSP0> . 




lfe68 


017742 






BR0 IDLE 




CI) 




000610 




MICPC*H1CPC+1 




CI) 


SM7742 


102051 




<JUMP(BR0CONl<IDLE-INI163000«4>i<IDLE- 


INIT4777/2» 


10b9 


B17744 






BRWRTE IMM,200 


;.MASK FOR C0CBYTE TRANSFER) 


C 1 ) 




040611 




MICPC«MICPC+1 




CI ) 


417744 


000600 




<MOVE 1 WRTEBR 1 IMM 1<200» 




1071 


017746 






SP BR,AOPB,SP0 




CI) 




0006 12 




MICPC«MICPC+1 




CI) 


4S17746 


063300 




<«OVE i SPXSBRI AORB i SP0> 




1076 


•17750 






STATE RKE1 




CI) 




00061 3 




MICPC«H1CPC+1 




C 1 ) 


01775P 


E00653 




<M0VElHRTEBRIIMMJ<RKEl-INIT6777/2» 




1077 


617752 






ALWAYS RCVK02 




(1) 




000614 




HICPC=M1CPC+1 




CI) 


A17752 


104620 




<JUHPlALCONDJ<RCVKO2-I»IIT63000*4>t<RCVKO2-INlTfc777/2» 


1078 








= SBTTL RCVKO— PROCESS ODD. CHARACTER 




1«79 


617754 




RCVKO: 


SPBR IBUS,NPR,SP0 


J IS AN NPR GOING 


CI) 




090615 




MICPC«MICPC*1 


CI) 


017754 


12 3600 




<MOVE1SPBRX1IBUS1NPR1SP0> 




teei 


017756 






BR0 RK66 


J IF SO. REITERATE ODD AND EXIT 


CD 




£00616 




MICPC"MICPC+1 




CI) 


017756 


106247 




< JUMP t BR0CON 1 <RK66-INITt3000»4> 1 <RK66- 


INITfc777/2» 


ie86 


017760 






STATE RCVKE 




C 1 ) 




000617 




MICPCBMICPC+1 




CI) 


017760 


000625 




<M0VE1 WRTEBR! IMM|<pCVKE-INIT*777/2» 




1087 


C17762 




RCVK02 ! 


SP BR,SELB,SP3 


(SET STATE 


CI) 
C 1 ) 


B17762 


f>)0620 
063223 




M1CPC«MICPC + 1 
<M0VE1SPX!BRISELB1SP3> 




10B8 


017764 






OUTPUT I BUS, RC VDAT10UTDA2 


fOUTPUT A CHAR 


CI) 




000621 




MICPC«HICPC+1 


CI) 


B17764 


fc?2203 




<M0VE1WR0UT!IBUSKRCVDAT10UTDA2» 






a 7766 




K*6 i 


BRSFIE. ISSfii 


;oti uoi nrK ItU linii nfK KCU 


(1) 




U00622 




MICPC»MICPC+1 




CI ) 


C17766 


000421 




<M0VE1WRTEBR1IMM1<21» 




1093 


017770 




RK7: 


OUT BR f < AORB 1 ONPR> 


,.*R1TE NPR REGISTER 


CI ) 




U00623 




HICPC«MICPC+1 




CI) 


B17770 


061310 




<MOVE 1 WROUTX 1 BR ! <AORB ! ONPR» 




1094 


017772 






ALWAYS IDLE 




(1) 




000624 




MICPC*M1CPC+1 




CI) 


IH7772 


100451 




<JUMPULCONDKIDLE-INIT{i3000*4>l<IOLt.- 


INllfc777/2» 



DMCll DDCHP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 10;16 



MAC/11 30(1046) U-JUL-77 12125 PAGE 6-36 
RCVKE— HANDLE EVEN BYTES 



PACE I 0194 



1096 .SBTTL RCVKE — HANDLE EVEN BYTES 



t 097 


017774 




ftC VKE t 


BRWRTE IBUSfNPR 








19006 25 




HlCPC'MiCPC+l 




... 


if 1 7 7 7 4 


1 20600 




<MQ VEI WPTEBR J I BUS 1 <NPR>> 




1099 


If 1 7776 








■ I& OFCV UDO.aB&AliirU 
j if KE*l ¥ WrK""DnnHLn 


1 1 ) 




000626 




M I C PC m M 1 C PC + 1 




f 1 


fc)l 7776 


1 07 25 1 




< JUMP i BR4C0N I <RK4"INITfc3000#4> J <RK4 


™ * ™ * i f / r f 




fry20>'00 






SP IBUS*IOBAl SP0 


f n&HU JjUH DHL Uf OH IV Or 


1 1 1 




U00627 




MICPC*H1CPC+1 


. . 


0219000 


923 1 40 




<MOVE I SPX . XBUSiXOBAl I SP0> 




1 1 S 


'? 20002 






OUTPUT DP# < INC A £ OB A 1 > 


•UDTTC T MPDITUITIiITI' n Hi 


( 1 








MTrorcM in dc * i 

n tv. rV. *pi*L. t 1 










d'Mf) VF t uoriTiT I r»n i / TlirA 1 ADA « vv 






(72000 4 






cd &d nirr & cdj 

Of OKf UCi^Hf Off 




. J ' 




(T7PI0O J 1 




UTf DP iMir DP *■ 1 
n^V. r V> m ~ * L> t*U t 1 






S3 2 000 4 


£63164 








1107 


020006 


















HICPC B MICPC+ 1 




I 1 


020006 






\uunr*tv.vni'J\] B9"*rii 1 at j 10 WW i>4v«" 




1 108 


02001 






SP BRf DEC A* SP5 


|0VERFL0W ■ DECREMENT HIGH BYTE 






00063 3 




MICPC*MICPC+1 




ft) 


920010 


#6 3 1 65 




✓ unvF t coy i do i nFri i cdk^ 






02001 2 














&a)0634 








0200 1 2 


1 0571 1 




« JUMP 1 7rOMn ! ^Dl.H«TU TT£)aaa«l> 1 ^di.i- 


T N TTt nit / *>«k% 
in* 111 / / / / & 


1110 


0200 1 4 




! 


OUTPUT iBUSf ^RCVDAT I OUTDAl > 


• B IT A ft fHlDtrTt'D and udTtf tt 


. . . 




(5*50635 




HICPC K MICPC+i 




1 1 


^200 1 4 


32 2202 




RPUUi J J>DUO(\j<vf Unl JUU Ivn 1 




1111 


£20016 






SP IBUS,IOBAl,SP0 


; READ INCREMENTED BA 


( 1 ) 




000636 




MICPC«HICPC+1 




til 


fc}2001 6 


0231 40 




<M0VE1SPXJ IBUSi I0BAI iSP0> 




till 


02 3(520 






OUTPUT DP,<INCAJ0BA1> 


; WRITE INCREMENTED BA 


Ml 




000637 




MICPC*MICPC+1 


Ml 


£20020 


062066 




<MOVEtWBOUTiDPl<INCA!OBAl» 




1111 


020022 






C ICBA22 


j IF CARRY INC BA HIGH 


Ml 




000640 




MICPC*MICPC+4 




< 1 1 


C20022 


1 15035 




<JUHPlCCONDl<ICBA2a-I*ITt3a00*4>l<ICBA22-INXTS,777/2» 


111* 


1120^2 4 




RK.3 ; 


SP BP.,DECA,SP4 


{DECREMENT THE COUNT OF BYTES 


C 1 1 








MICPC*MICPC+J 




( 1 ) 


£20024 


f 6 3 1 64 




<M0VE!SPXJBRIDECAJSP4> 




1115 


020026 






C RK6 


;N0 OVERFLOW 










HICPC«H1CPC+1 




Ml 


070026 


1 05245 




<JUMPICCOND!<RK6-INI«300#*4>t<RK6- 


INIH777/2» 


1116 


£200 3 






SP BR,DECA,SP5 < 


{DECREMENT HIGH BYTE OF COUNT 


f 1 1 




J! . . ^ 




HICPC«MICPC+1 




f 1 1 


020030 






<M0VE1SPX!BR1DECA1SP5> 




1117 


V£ WW J ^ 






Z RL4 


{BYTE COUNT ZERO 


... 




000644 




MICPC=MICPC+1 




b20032 


1 11772 




<JUMP!ZCOND!<RL4-INlTi3000t4>!<RL4- 


INITt777/2» 


1119 


02003 4 




HK6: 


BRWRTE IBUSi RCVCON 


; READ RECEIVER CONTROL REGISTER 






900645 




MICPC«HICPC + 1 




020034 


020640 




<M0VEI WPTEBRi IBUS1<RCVC0N>> 




1 120 


02^36 






BR4 RCVKO 


fIF ANOTHER CHARACTER— PROCESS 






000646 




HICPC«MICPC+1 








107215 




<JUMP!BR4CONJ<RCVKO-INIT«.3000»4>!<RCVKO-INITfc777/2» 


1121 






hK66: 


STATE RCVKO 





DMCll DDCMP PROTOCOL IMPLEMENTATION MACY1 1 30(1046) ll-JUL-77 12J25 PAGE 6-37 PAGE! 0195 

DDCHGH , MAC 21-APR-77 101 16 RCVKE--HANDLE EVEN BYTES 



1 ) 




000647 


MICPC»MICPC+1 


1} 


02.M40 


000615 


<M0VES WRTEBRl INN !<RCVKO-INITfc777/2>> 


22 


H70P42 




ALWAYS REXIT 


1} 




000650 


MICPC«MICPC+1 1 


1 ) 


020042 


100450 


<JUMPJ ALCONDKREXIT-IHITfc3000«4>l<REXIT-INITi777/2» 


23 


020044 




RK4: BR0 IDLE 


1) 




&40651 


HICPC*MICPC+1 


1) 


H20044 


1 02051 


<JUMP!BR0CONl<IDLE-INIT&3000*4>KIDLE-INIT&777/2» 


24 


920046 




ALWAYS PK5 jIF NO NPR --PROCESS 


1 ) 




SH0652 


MICPC»MICPC+1 


1 ) 

30 


020046 


1^4627 


<JUMPlALCONDJ<RK5-INITi3000»4>KRK5-INITi777/2» 


31 


V20050 




t 

RKE1I SP IBUS,NPR,SP0 t READ NPR REGISTER 


1 } 






MiCPC«hlCPC+l 


1) 


020B50 


123200 


<MOVE13PX!IBUS1NPR{SP0>' 


33 


320052 




BR0 IDLE f NpR STILL IN PROGRESS 


1) 




000654 


MICPC»MICPC + 1 


1 ) 


320352 


102!?51 


<JUMP!BP0CON!<IDLE-INIT«i3000#4>!<IDLE-INITi777/2>> 


35 


02005 4 




BRWRTE IMM.177 j MASK FOR ALL BUT C0 


1) 




000655 


MICPC«=MICPC+1 


1) 


t70054 


000577 


<M0VEIWRTEBRJIMMJ<177» 


36 


020P56 




OUT BR,<AANDB|ONPR> ; TURN OFF ALL BUT C0 


1 > 




0f>0656 


MICPC-MICPC+1 


1) 


1)20056 


£61270 


<M0VEI WR0UTX1BRKAAN0B 1 0NPR>> 


37 


£20060 




ALWAYS RK50 


1) 




1 30657 


MICPCaMICPC + 1 


1 ) 


020060 


t J4631 


<JUMPJALCONDKRK50-INITS3000»4>i<RK50-INITj.777/2» 


36 






;»**»»»»#*###«»»»«END OF TIME CRITICAL PATH*»***«»««*»*»»«»**»»»««»****»**«****« 


39 
40 


020062 




RCVKE0 : SP IBUS,RCVDATrSP0 (READ CHARACTER AND SAVE IN SP0 






300660 


MICPC*MICPC+1 




K20062 


023200 


<M0VL ! SPX! IBUSi RCVDAT! SP0> 




0?0«64 




OUTPUT 8R,<SELA<0UTDAi> }SEND NONSENSE CHARACTER 






900661 


MICPC=MICPC+1 




920064 


062202 


<M0VE > WROUT 1 BR 1 <SELA 2 0UTDA1» 




S23066 




BRWRTE BR,SELA1SP1 ;READ STATUS BYTE 






000662 


MICPCaMlCPC+1 




020f 66 


,160601 


<M0VE!WPTEBR1BRKSELA1SP1» 




220470 




BR7 PASWRD ; MAINT MOOE - SEE IF RLD MESSAGE 






(100663 


MICPC=MICPC+1 




C20f»7a 


1 17576 


<JUMP!BP7CONl<PASWRD-INITO000»4>UPASWRD-INlTii777/2>> 




i. 20t72 




ALWAYS RK3 -OTHERWISE PROCESS NORMALLY 






0»0664 


MICPCsMICPC+1 




• 20.772 


104641 


<JUMPJ ALCOND!<RK3-INIT43000»4>KRK3-lNITfc777/2>> 



DMCll ODCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APP-7? 10:16 



MAC^ll 30(104b) H-JuL-77 12:25 PAGE 6-38 
KCVI— STORE UNNUMBERED MESSAGE TYPE 



PAGE: 0196 



1146 






.S8TTL RCVI--STORE UNNUMBERED MESSAGE TYPE 


(1) 


92«Jf 74 


030665 


HCVI: 5P 1BUS, RCVDAT, SPi 3 ;STORE UNNUMBERED TYPE 
HICPC=M1CPC+1 


(1) 


£26074 


073213 


<M0VE!SPX!IBUS1RCVDAT1SP13> 


1143 
CI) 


B20f76 


300666 


STATE RCVJ j NEXT STA'IE IS J 
MICPC«M1CPC* i 


(13 


020076 


000670 


<MOVE!hBTEBRlIMM}<RCVJ-MIT&777/2» 


Ji 49 
(1) 


C$20100 


£0066 7 


ALWAYS REXIT 
MICPCeHICPC+1 


(1) 


020103 


100450 


< JUMP J ALCONDl<REXIT-INITS3000#4>J<REXIT-INIT&777/2» 


1 150 






t 



DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046} ll-JUL-77 12S25 PAGE 6-39 PAGE: 0197 

DDCHGH.MAC 21-APR-77 10:16 RCVJ— ROUTINE TO HANDLE SUBTYPE FIELD, SELECT AND FINAL 



1152 






.SBTTL RCVJ— ROUTINE TO HANDLE 


SUBTYPE FIELD, SELECT 


1153 


f>20102 




PCVJt 




1158 
(1) 


320102 


S700670 


SP IBUS.PCVDAT,SP5 
HICPC*MICPC+1 


;GET CHARACTER 


(1) 


P20102 


.J23205 


<M0VE!SPX!IBUS1RCVDAT1SP5> 










BRWRIE I MM, 238 




(1) 




100671 


MICPC«HICPC+1 




(1) 


020104 


000600 


<M0 VL I WRTEBR 1 IMM 1 <200» 




1100 

(1) 


fe201 06 


000672 


BRWPTE BR, AANDBl SP5 
MICPC«HICPC+1 




(1) 


»2»106 


062665 


<M0VElWBTEBRlBRl<AANDBiSP5» 




llbl 
(1) 


020110 


500673 


SP BR,AORB,SP10 
HICPC«HICPCtl 




(1) 


0201 10 


063310 


<MOVE1SPX1BR!AORB!SP10> 




1163 
(1) 


f'20112 


000674 


STATE RCVR 
HICPC«HICPC+1 


; NEXT STATE IS N 


(1) 


0201 1 2 


030676 


<M0VE1 WRTEBRi IMMl<RCVR-INITfc777/2>> 


1164 
(1) 


020114 


000675 


ALWAYS REX IT 
KICPC«MICPC+1 




(1) 


1120114 


100450 


<JU«P!ALCONDi<REXIT-miTS30«0»4M<REXIT-INITS.777/2» 



DMCU DDCMP PROTOCOL IMPLEMENTATION 
DDCHGH , MAC 21-APR-77 13:16 



MACY11 3t)C104b) tl-JUL-77 12125 PAGE 6-40 
RCVP— UNNOMBEREU MESSAGE RESPONSE FIELD 



PAGE S 0198 



! 'ft 






.SBTTL RCVR—UNNUMBERED 


MESSAGE RESPONSE FIELD 


1 167 






} ENTERED FROM IDLE LOOP 










i 

rcvr: bpwrte imm,3 


>REP MESSAGE TYPE TO BR 


t 1 ) 




0006 76 


MICPC*M1CPC+1 






J! _ : ' 


Iff J 


<HOVE!t«RTEBRlIHMl<3» 




17B 






NOP BR,SUB#SP13 


;IS TYPE ACK OR NAK 


! . > 




y © jo 7 7 


MICPC=M1CPC+1 




\ i ) 




P6.J353 


<BR!SUB!SP13> 






K2n)i 22 




STATE RCVO 


; NEXT STATE Is RCVQ 


< i > 




000700 


MICPC»H1CPC+1 




( i > 


C20122 


C00703 


<MOVE! HRTCBRi IMMJ<RCVQ-IJtITfc777/2» 


1 172 








;*»»NOTE THIS 1NSTR DOES 


1173 


020124 




C RCVF1 


;IF NOT IGNORE 


(1) 




1)00701 


MICPC=M1CPC+1 




(1) 


020124 


105131 


<JUMPlCCONDi<RCVFl-IHIT43000*4>i<RCVFl-INIT&777/2» 


1174 


1*20126 




ALhAYS RD2 


;DO RANGE CHECKS 


( 1 ) 




000702 


MICPC*MICPC+1 




(1) 


£22126 


104473 


<JUMPIALCONDl<RD2-I»IIS3000«4>i<RD2-INITi777/2» 



DMCU DDCHP PROTOCOL IMPLEMENTATION 
DDCHGH. MAC 21-APR-77 13:16 



MACY11 30(1046) U-JUL-77 12:25 PAGE 6-41 
RCVQ— -UNNUMBERED MESSAGE—NUMBER FIELD 



PAGE: 0199 



1176 
1177 
1178 
1179 
(1) 
(1) 
1100 
(1) 
(1) 



a 2 tii 3 1 

120132 



000703 



000704 
144531 



.SBTTL 
f ENTER 



RCVQ— UNNUMBERED MESSAGE- 
FROM IDLE 



-NUMBER FIELD 



f NEXT STATE IS ADDRESS 



STATE RCVF 
HICPC»MICPCtl 
<MOVEURTEBRlIMMl<RCVF-INIK777/2» 
ALWAYS RCVF1 '* 
MICPC«MICPC+1 

<JUMPULCONDl<RCVFl-miW3000»4>J<RCVFl-INIIfc777/2» 



DMC11 ODCHP PROTOCOL IMPLEMENTATION 
DDCHGH.HAC 21-APR-77 l»!l6 



MACY11 30(1046) ll-JUL-77 12:25 PAGE, b-42 
PCVL— PROCESS CRC 3 



PAGE: 0200 



1182 








cbtti. nrur ■-dd^cpcc fori 


118 3 








I dn i. Lr\c. u rftUn lUut, livvr 








- 


SPBR XBUSf NPRf SP" f READ NPR CONTROL 


(11 








hICPC=MICPC+l 


(1) 


e2kH34 


123600 




<MOVEJSPBRXUBUSJNPRiSP0> 


J 186 








BP4 RL1 JKCV NPR BRANCH 


( 1 ) 




0*23706 




K T r Df cMTT Df * 1 

r" i ^, — n A tr\^ T I 




*^[" 


1 «S f ji4 




< JUMP 1 BR4C0N 4<Rui*IN XT& 3000^4 > i <RLi *I " IT&7 7 7 / 2>> 


1191 








BRWRTE I*1M?176 i MASK TO TURN OFF CW 


! J I 




000707 




t*V "Bit r V, T 1 


c i ) 




000576 






1192 


0201 42 






chit dd & & unn inuDD 


CI) 






0^0 / 1 






( 1 ) 


201 42 

* 


06 1270 




^ lift U IT 1 UDflllTY 1 DD 1 /AilinB 1 DUDDSV 


1193 
1194 


£20144 




RL3: 


NOP IBUS»RCVDATf ; INPUT CHARACTER AND DISCARD 






ia c-i a 7 1 1 






Ml 








<16U51 RC V&ATI 0> 




; : 








1 « i 




000712 




MTf Df se M T C x 1 


CI) 


1*201 46 


V<O0 (ID 




vnuvnwM ton ( innj ^nv< fit r / / / 


1 1 96 


A 7. 1 5 








C 1 ) 




00071 3 




MICPC«HICPC+1 


CI) 


020150 


100450 




<JUHPIALCO*JDi<REXIT-INITfc3000*4>i<PEXlT-INITt.777/2» 


1197 
1199 


220152 




P.Li: 


; 

BR0 IDLE ;HPR GOING —GET OUT 


(1) 




3W0714 




MICPC«HICPC+1 


CI) 


020152 


>d2esi 




<jUMPlBR0CONl<lDLE-I«lTfc3000*4>l<lDLE-INlTfi t 777/2» 


1200 


320154 






ALWAYS RI.2 


CI) 




003715 




MICPC«MICPC+1 


(!) 




1 ,44737 




<JUHp!ALCOND!*RL9»TNlTfe3000*4>!<RL9-INIT£,777/9» 


1202 











OHClt DDCMP PROTOCOL IMPLEMENTATION MACYU 30(1046) ll-JUL-77 12J25 PAGE 6-43 PAGE: 0201 

DDCHGH.HAC 21-APP-77 10:16 RCVM— PROCESS CRC4 — END OF DATA MESSAGE 



1234 






. SbTTL RCVM— PROCESS CRC4— END OF DATA MESSAGE 


1205 






; ENTERED FROM IDLE LOOP:" 


1206 






;IF CRC CORRECT — QUEUE INTERUPT AND UPDATE RESPONSE 


12<J7 
1708 






•IF CRC WRONG SEND NAK 


1 2£iQ 


t 




oruBl RDiiDTf TKnc.tlRRO .»I«n MNTHMC DD ^Clcrm 


(1) 




0«;k;716 


HICPC=MICPC+1 


(1) 


320156 


129623 


<M0VEI NRTEBRi IBUS1<UBBR» 


1210 


fc20l6<J 




BR0 NXMERR j NON-EXISTANT MEMORY 


(1) 




030717 


HICPC»MICPC+1 


(1) 


£20160 


106351 


<JUMPIBR0CON!<NXMERR-INITt3000*4>l<NXMERR-INITi777/2» 


1211 


£20162 




SP IBUS,RCVDATf SP0 ; READ CRC CHARACTER 


CI) 




000720 


MICPC«M1CPC+1 


(1) 


820162 


023200 


<M0 VE ! SPX J I BUS 1 RC VD AT J SP0> 


1212 


f.20164 




BRWRTE IBUSfRCVCOH • READ RECEIVER CONTROL REGISTER 


Ct) 




000721 


MICPC«HICPC+i 


(1) 


320164 


0206 40 


<M0VE1WRTEBRJIBUSI<RCVC0«» 


1213 


020166 




BR0 RCV»1 J IF CRC GOOD — PROCESS 


(1) 




000722 


HICPC«MICPC+1 


(1) 


920166 


1 16214 


<JUMP!BR0CON{<RCVMl-INITfc3000«4>l<RCVMl-INIT&777/2» 


1214 


820170 




BRWRTE BR.SELAJSPl j READ STATUS BYTE 


(1) 




000723 


MlCPC"MICPCtl 


CI) 


P20170 


060601 


<movei wrtebribr:<selaispi» 


1215 


&20172 




BR7 RHX jCRC ERROR IN BOOT MODE - FLUSH 


(1) 




000724 


MICPC«MICPC+1 


(1) 


020172 


107740 


<JUMPlBP7CONJ<RHX-INITti3000»4>!<RHX-lNITi777/2» 


1216 


e20174 




LDMA IMM,T ;£LSE SEND NAK —DATA ERROR 


CI) 




000725 


HICPC«M1CPC+1 


CI) 


920174 


010151 


<M0VEILDMARIIMMJ<T4377>> 


1217 


020176 




MEMINC IMM, 2 ; NAK TYPE 


CI) 




000726 


MICPCiMICPC+1 


(1) 


023176 


P16402 


<M0VE 1 WRMEM ! INCMAR J IMM J <2» 


1218 


520200 




MEM INC IMM, 302 | DATA ERROR SUBTYPE 


(1) 




010727 


MICPC"MICPC+1 


(1) 


C20200 


016702 


<MOVE!WRMEM1INCMAR1IMM1<302» 


1219 


C20202 




LDMA ' IMM, NDATS 


C ! ) 




fla«7 "HA 


MTror«nirpr4.» 


CI) 


f»20202 


010014 


<M0VE1LDHARJIMHJ<NDAT56377» 


1220 


020204 




ALWAYS RH5 I SEND NAK 


(1) 




000731 


HICPC«M1CPC+1 


(1) 


r'2i)/Wi 


U'4552 


<JUMPiALCONDi<KH5-INIT(i3000«4>i<RH5-INlTii777/2» 


1221 
1222 


020206 




RCVM0S LDMA IMM,«RTHRS+3» ; POINT TO ERROR WORD 


(1) 




030732 


MICPC=MICPC+1 


(1) 


! 20206 


610177 


<HOVtlLUMARtIMM!«RTHRS+3>4377» 


1223 


£20210 




BRHRTE IMM, 10 ; MA1NT MESSAGE ERROR 


(1) 




P00733 


MICPC«MICPC+1 


(1) 


B20210 


000410 


<MOVElWHTEfiRJIMMi<10» 


1224 


*>20212 




ALWAYS RCEXY ;GIVE FATAL ERROR 


(1) 




0*0734 


MICPC»MICPC+1 


(1) 


1.20212 


1 1 4522 


<JUMPiALCONDi<RCEXY-INITfc3000*4>i<RCEX!(-INlTfc777/2» 



DMCI1 UDCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 10:16 



MACYU 30C1046) U-JUL-77 12»25 PAGE 6-44 
EM2--PROCESS RLU MESSAGE 



PAGE! 0202 



1226 








. SBTTL EM2— PROCESS RLD MESSAGE 


1227 








; ENTERED FROM IDLE LOOP 


1228 
1229 








J IF RLC PASSWORD CHECKS TRIGGER THE BOOT ROM 


12 30 


0202 1 4 




EM2 ! 


BRWRTE I6US,RCVDAT ; READ 1HE CHAR 


( 1 ) 




901(3735 




MICPC»M1CPC+1 


( 1 ) 


P2021 4 


020600 




<M0VEIWPTEBR1 JBUS!<RCVDAT» 


1231 


<?20216 






CMP BP.SP13 jIS IT A MATCH 


I 1 ) 




000736 




MICPC*MlCPCtl 


( 1 ) 


020216 


£60373 




<SUBTC:BR!SP13> 


1232 


020220 






Z EM3 


( 1 ) 




Ft'0737 




MICPC«MlCPC+l 


( 1 ) 


020220 


1 05746 




<JUMPlZCONDl<EM3-INITt3#00*4>l<EM3-INIT&777/2» 


1233 








;FALL INTO RHX 


1 234 


£20222 




RHX: 


BRWRTE BR,AA1SP1 ;READ STATUS BYTE SHIFTED LEFT 


( 1 ) 




$00740 




MICPC«MICPC+1 


( 1 ) 


020222 


060521 




<H0VE1 WRTEBR 1BRKAAI SPt » 


1 235 


C20224 






6R4 10$ ;DLE RECEIVED IN NORMAL MODE 


( 1 ) 




000741 




HICPC«M1CPC+1 


C 1 ) 


020224 


1 07 343 




<JUMP'. BR4CONl<10«-INITfc3000*4>l<10$-INIT&77 7/2>> 


1236 


020226 






ALWAYS FLUSH } ALREADY IN MAINT MODE 


tl) 




000742 




KICPC«MICPC + 1 


(1) 


£20226 


104415 




<JU«P! ALCOND!<rLUSH-INITi3000*4>!<FLUSH-INITfc777/2» 


1237 


f 20230 




10$: 


BRWRTE IHM,163 ;MASK TO CLEAR ALL MAINT RELATED BITS 


1 1 ) 




030743 




MICPC»MICPC+1 


(1) 


F20230 


000563 




<*OVE! WRTEBR I IMM| <163» 


1238 


020232 






SP BR,AANDB,SP1 ;CLEAR THEM 


( 1 ) 




000744 




MICPC«MICPC+1 


(1) 


620232 


063261 




<MOVEI SPX ! BRt AANDB J SP1> 


1 239 


¥20234 






ALWAYS FLUSH 


( 1 ) 




DJ0745 




MICPC«MICPC+1 


1 1 ) 
1240 


920234 


104415 




< JUMP1 ALCOND}<FLUSH-INIT(j3000*4>i<FLUSH-INIT&777/2>> 


1241 


920236 




EM3t 


SP BR,DECA,SP4 ; DECREMENT CHARACTER COUNT BY ONE 






C00746 




MICPC*MICPC+1 


CI) 


020236 


P63164 




<M0 VE ! SPX 1 BR I DECA 1 SP4> 


1242 


320240 






Z EMTRIG ^TRIGGER AC LOW 


U) 




030747 




MICPC»MICPC+1 


CI) 


020240 


115712 




<JUMPJZCOND!<EHTRIG-jK?S3000«4>l<EMTRIG-INIT&777/2» 


1243 


020242 






ALWAYS IDLE 


CI) 




000750 




mCPC«MICPC+l 


CI) 


020242 


14,0451 




<JUMPlALCONOI<IDLE-INITfc3000»4>i<IDLE-INITt777/2» 



DMC11 DDC«P PROTOCOL IMPLEMENTATION MACYU 30(1046) ll-JUt-77 12»25 PAGE 6-45 PAGE : 0203 

DDCHGH.MAC 21-APP-77 10:16 NXMERR ---NON EXISTANT MEMORY HANDLER 



1246 






.SBTTL NXMERR ---NON EXISTAIfT MEMORY HANDLER 


1247 


t!?0244 




NXKERRS LDMA IHM,«RTHRS+3>> ; ADDRESS ERROR LINK 


(1) 




1/00751 


MICPC«MICPC+1 


(1) 


r20244 


2J»177 


<MOVElLDMARIIMNl«RTHRS+3>fc377» 


1248 


020246 




MEMINC IMM,1 


(1) 




600752 


MICPC«M1CPC+1 


CI) 


e 2f 246 


£16401 


<H0VE!WRHEM1INCMAR1IMMJ<1» 


1249 


420253 




MEM 1MM,0 ;NXM ERROR BIT 


( 1 ) 




W0753 


NICPCaMICPC+1 


CI) 


020250 


£■•2400 


<hoveiwrmeh:immi<0» 


1250 


K20252 




SP MEMX,SELB,SP10 ; CLEAR STATUS 


CI) 




200754 


MICPC«MICPC+1 


CI) 


824252 


H«3230 


<MOVEISPX!NEMX|SELB1SP10> 


* i 5 I 


»2*254 




ALWAYS RCtXX 


CI) 




C.00'55 


HICPC«MICPC+1 


CI) 


020254 


114524 


<JUMPIALCONDl<RCEXX-INIT4i3000*4>!<RCEXX-INITS777/2» 



DMC 

DDC! 



1 DOCMP PROTOCOL IMPLEMENTATION 
IGH.MAC 21-APR-7 7 !0:!6 



MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-46 
SXMFRR ==-NON EXISTAK7 HEMOFY HANDLER 



PAGE: 0204 



1271 
1274 


020256 




BOOT: 


• 

BRWRTk BR,SELA!5P1 fSEE IF IN MAINT. MODE 


CI) 




000756 




MICPC*M1CPC+1 


(1) 


02.3256 


060601 




<M0VE1WHEBR!BR!<SELAISP1» 


1275 


020263 






BR? RA3 ; BRANCH IT SO AND TREAT DUE LIKE Nun. MSG. 


(1) 




000757 




MICPC=MICPC+1 


(1) 


SJ20260 


103742 




<JUHPlBR7CONJ<RA3-INIT63000»4>KRA3-INITt777/2» 


1276 


i?20262 






BRWRTfc IMM.210 : MASK TO SET MAINT MODE AND OLE RECV '0 


(1) 




030760 




MICPC=MICPC+1 


(1) 


1*20262 


000610 




<M0 VE i WPTE8R 1 IHM • <2 1 0» 


1277 


020264 






SP BP,A0RB,SP1 ;SET THE BITS 


C 1) 




£.00761 




MICPC=H1CPC+1 


CI j 


5*2**264 


96330! 




<move:spx:briaorbsspi> 


1278 


320266 






ALWAYS RA3 J TREAT LIKE NUMBERED MESSAGE 


CI) 




C-09762 




HICPC*MICPC+1 


CI) 


020266 


10J742 




<JUHP: ALCOND ! <RA3-IMTi3000*4> 1 <RA3-INITS77 7/2» 


1279 


920270 




resext: 


BRNRTt IMH.4 ; ADD TO HXT BITS 


CI) 




000763 




HICPC«MICPC+1 


CI) 


020273 


000404 




<H0VEIWRTEBRIIMHJ<4» 


128k) 


020272 






SP BR,ADD,SP0 


CI) 




000764 




MICPC*MICPC+1 


CI) 


020272 


06 3000 




<MOVEISPX!BR1ADD1SP0> 


1281 


020274 






ALWAYS TH3X 


CI) 




000765 




MICPC=MICPC+1 


CI) 


i£20274 


1 10601 




<JUHP!ALCONDi<TH3X-IHITt3000*4>!<TH3X-INITi777/2» 


1282 


020276 




tabmxt: 


BRWRTE IM«,4 ; INCREMENT MXT 


CI) 




000766 




HICPC»MICPC+1 


CD 


020276 


000404 




<H0VE!WRTEBR!IMMi<4» 


1283 


B20300 






SP IBUS,UBBR,SP0 ;READ BR CONTROL 


CI) 




800767 




MICPC«M1CPC+1 


CI) 


020300 


123220 




<MOVE • SPX! IBUS1 UBBR 1 SP0> 


1 284 


k?2i?302 






Out BR, ADD10BR 


CI) 




000770 




HICPC=MICPC+1 


CI) 


020302 


061011 




<M0VE1 WROUTX 1 BRKADD 1 OBR» 


1285 


020304 






ALWAYS ECX 


CI) 




000771 




HICPC«HICPC+1 


CI) 


020304 


114761 




<JUHPlALCONDKECX-INITt3000'»f«>l<ECX-INITt777/2» 


1286 










1287 


U20306 




rthres: 


BRWRTE IHM,2 


tl) 




000772 




MICPC=HICPC+1 


CI) 


920306 


000402 




<M0VE!WRTEBRlTMMl<2» 


1288 


020313 






ALWAYS ERRXX 


CI) 




000773 




MICPCsMICPC+1 


CI) 


02031"? 


1 14663 




<JUMP!ALCONDl<ERRXX-INITti3000«4>i<ERRXX-INITt?77/2>> 


1291 


B20312 






SZERO 


C2) 




C00774 




HICPC*H1CPC+1 


C2) 


020312 


800003 




000000 


CI) 


020314 






SZERO 


C2) 




090775 




MICPOMICPCtl 


C2) 


020314 


000000 




000000 


CI) 


020316 






SZERO 


C?) 




000776 




HICPC=MICPC+1 


C 2 } 


£20316 


$•00000 




000000 


CI) 


C20320 






SZERO 


C2) 




000777 




MICPC=HICPC+1 


C2) 


020320 


900000 




000000 



DMClt DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JOL-77 12:25 PAGE 6-47 PAGE: 0205 

DDCHGH.WAC 21-APR-77 10:16 NXMERR -NON EXISTANT MEMORY HANDLER 



1293 




£20322 


.aINIT+2000 




1294 




000777 


MICPC«777 




1295 






.SBTTL THTDA— TRANSMITTER DISPATCH 


ROUTINE 


1296 






t 




1297 


020322 




TMTDAt BRWRTE IBUSt TMTCON 


; READ TRANMITTER CONTROL 


CI) 




001000 


MICPC*MICPC+1 




ii j 


^20322 


020020 


<MOYEI WRTEBRi lBUSi<THTCOM» 




1298 


020324 




.BR4 DP,SELA,<21PAGE2> 


jIF READY PROCEED 


CI) 




0»lk>01 


MICPCeMICPC+1 




CI ) 


P20324 


1 73202 


<JUMP1 BR4C0N1DP1SELAJ21PAGE2> 




1299 


U20326 




ALWAYS 11 


j ELSE IDLE 


CI) 




001002 


MICPC*MICPC+1 


CI) 


£20326 


10)9454 


<JUMPIALCONDl<Il-INITS3000#4>l<Il-INIT*777/2» 



DHC 1 1 DDCMP PROTOCOL IMPLEMENTATION 
DOCHGH.MAC 21-APR-77 10:16 



OACY11 3HU046) U-JUL-77 12125 PAGE 6-48 
TMTA— FIRST CHARACTER OF HEADER 



PAGE: 0206 



J02 








■ SBTTL TMTA*«-FIRST CHARACTER OF HEADER 


303 


02033S* 




TMTA ' 


; 


309 


^20 330 






BRWRTE BFr5ELA15P10 jRc-KB-Af SlATUo 






e 31003 




MICPC«KICPC*i 


; i ) 


339* 


0606 1 J 




< HO VE i W R TEBP 1 BR • <SELA 1 5P1 0>^ 


310 


020332 






BR0 NUMSYN J IF UNNUMBPENDING SEND 


; | I 




Ufc* 1 004 




MICPC S M1CPC+1 


* 


F20332 


1 1 2007 




4> inuni DDarnu 1 ^UiiUGVti_T)ilT1 , C.1Maa«A^ 1 ^NHM*iYH»TriiTTJL777 >9%> 


i i 


1*20334 






BRSHFT 


; j * 




001 005 




HICPC*MICPC+1 






£1(4 1 (vOfl 
trP I D civ 




<MOVE! SHFTbRi WRTE6RI SELB> 


512 








li rn Tr\TE>n .TT CTlDT Mftrnr-BFYTT 

bF4 IDLE0 i * " OiAni nuut p "LAA a 


■ 1 ) 




£ dl 006 




MICPC«HICPC+1 


' 1 ) 


0203 36 


1 f» 306 3 




<JUMPIBR4CONl<IDLE0" , INITfc3000*4>i<lDLL0"INIT&777/2>> 


f 1 ? 


£20340 




NUMSYH J 


BRWRTE BR? <SELAlSPI0^ yREAD LINE STATUS WORD 


' ! i 




£ V» 1 007 




MICPC«MiCPC+l 




920 340 


06 06 1 




< MOVE I HRTEBR 1 BR1 <SELAI SP10>> 


i o 


i'20342 






BR7 5$ *XF OK TO 5END* — PR0CEED 


r j . 








M ICPC*M1CPC+ 1 


L 1 ) 


020342 


1 13412 




* niMDi boirrtM i « _ tii T TLlaaa*!^ i^^itaTliil T£7 
suUir J Or / LU" I %3 !>■ AH A IhJVDV*^' ( \39"i"iitf / f f 


320 


^20 344 






ftuHAID i\ J C<UoL""iUlJEi 


| J J 




00101 1 




MICPC*MICPC+1 




0203 44 


1 0045 4 




rf'.lllUD f At.CTlNn lyTl .TNITC 3aaa*d>) < I 1 •! NT Tfi.77 7 /"?>> 
tuUBri Kutv/ni/ l\Xl"ini I v JWV* V • 1"*" * *■ f / f t * 


321 


020346 






bRWFT^ IBUS MODEM "ARE WE STILL SENDING? 


' 1 ! 




££1012 




MIC PC e M 1 C PC + 1 




$20 346 


f£?2 9660 




v flu V t J Mr ILoKI lDUot tnuwfcW// 




#20350 






BRSHFT 


r i i 








HICPC^MICPC+l 




|r 20 350 


fl 1 63ft 




/iinvir i chctdc i udtfrd i cirr.n% 




#2*352 






ani T4 bDTC cFT9 Tf>' Cft WW SDF«»ST1U.I, 
DK4 H JKIO B&X f Ir £>U HE. MHs.™"&AM«Jj 


r i i 

' I \ 








MICPC«MICPC*1 


> 1 ) 


7 


03054 






32* 


f*2035 4 






BRWRTE IHM^373 jMASK TO TURN OFFLINE IDLE 


< 1 ) 




041015 




MICPC*MICPC+1 




20354 


0»0773 




<M0VE! HRTEBR I IMM|<373>> 




920 356 






Or Pi* f AANUDf OPl V Ji.Hul.nE. dlnl uo Bury 


[ 1 ) 




001 016 




MICPC»MICPC+1 




€20356 


I/O 3 £ i x? 




<M0VE S SPX • BR 1 AANDB 2 SP10> 


fit 








tstate tmtai 


r i J 




001017 






r « i 


020 360 


000^ 2 4 




^MnuP 1 UP VP* nD 1 TUU 1 /1<MTIt1 ■THT¥£117 /nvs 
HKjLDni tii|*iniih / / t f £9 * 


r ! \ 




0&1 02 






Wi 




063222 




\ny vaj OKA ] DK I o^bD \ &ri/ 












{ 1 1 
r I * 




0^1021 






; 


_ 


0004 1 2 














or DKf O&uDf dro |01*>/|\Ci An Are 


( 1 ) 




091 022 




HICPC"M1CPC+1 


r i ) 


#20366 


063226 




<H0VE!SPXIBRiSELBiSP6> 


329 


P20370 






ALWAYS Zl ;BACK TO IDLE LOOP 


( t) 




££1023 




HICPC»HICPC+1 


(1) 


U2037O 


100454 




<JUMPlALCONDKIl-IHIT63000*4>KIl-lNlTt777/2>> 


33d 


020372 






SP BR # DECA, SP6 y DECREMENT SYN COUNT 


( 1 ) 




001024 




MICPCeMICPC+1 


(1) 


020372 


063166 




<H0VE!SPXiBRiDECAiSP6> 



DHCIl DDC^F PROTOCOL IMPLEMENTATION 
DOCHGH.MAC 21-APB-77 10J16 



"ACI H 30(1046) U-JUL-77 12125 PAGE 
TMTA--FIRST CHARACTER OF HEADER 



PAGE! 0207 



V20374 






Z THTEXT 




001^25 




MICPC«MCPC+1 


I2i?374 


111432 




<JUHPlZCONOI<TMTEXT-I»ITfc3000»4>i<TMTEXT-INiTS777/2» 


?20376 






OUTPUT 1HH,<H0T«TC0> jKRlTE SON TO THTR CONTRL 




L101026 




HICPC«MICPC+1 


*2W376 


00201 1 




<MOVE1WHOUT1IMM!<1}OTMTCO» 


t.20460 






BRWRTE IHH,226 (S*NC CHAR 




0B1027 




HICPC»MICPC+1 




000626 




<H0VE1HRTEBR1IHH1<226» 


1^23402 






OUTPUT BR,<SELB1THTDAT> 1 SEND THE CHARACTER 




0.!1030 




HICPC«MICPC+1 


L"2a402 


S62230 




<M0 VE 1 MR0U1 1 BRKSELB I THTD AT» 


i>20404 






ALWAYS 11 




001041 






P20404 


100454 




<JUMPlALCONDi<Il-INlTt3000»l»>l<Il-INITS.777/2» 


020406 




thtext: 


BRWRTE BR,<SELAtSP10> ' ; UNNUMB MfcSSGE? 




£01032 




MICPC«HICPC+1 


U2<>406 


060610 




< MO VE 1 WRTEBR I BR J <SELA 1 SPl 0» 


(•20410 






BR0 TMTUN jlf SO —BRANCH 




C01033 




HICPC««1CPC+1 


^2<J410 


U2043 




<JUMPlBP0CONl<THTUN-IHITS3000»4>J<TMTUN-INITfc777/2» 


S-2W412 






TSTATE TMTB 




001034 




MICPC»MICPC+1 


l,2«»412 


000451 




<M0VE!WRTEBRlIMHJ<TWTB-INIT4777/2» 




001035 




HICPC"H1CPC+1 


020414 


163222 




<H0 VE 1 SPX i BR I SELB 1 8P2> 


>>20416 






BRWRTb BR,SELA!SP1 | ARE WE IN BOOT MODE 




001036 




MICPC»MICPC+1 


U20416 


060601 




<M0VE1 WRTEBR! BRS<SELA!SPl» 


P20 42H 






BR7 TMTBT -.If SO SEND DLE 




001037 




MICPC»M1CPC+1 


B20420 


1 1 3447 




<JUMPlBR7CONKTMTBT-IHITJ,3000«4>l<TMTBT-INITi777/2» 


020422 






BRWRTE IMM,201 ; ELSE STORE SCK 




irtlt!10 




MICPC"MICPC+1 


02i>422 


»k!0601 




<MOVE1WRTEBR!IMM1<201» 


H20421 




THTA5: 


OUTPUT BR,<SELB1TMTDAT> ;IN TMT SILO 




C^1041 




MICPC*MICPC+1 


i»20424 


C62230 




<M0 VE ! HHOUT! BPKSELB1TMTDAT>> 


ZI0426 






ALWAYS 11 




001042 




MICPC"M1CPC+1 


V20426 


10P454 




<JUMPIALCONDl<Il-INITS3000»4>!<Il-INITfc777/2» 


020130 




TMTUN; 


TSTATE TMTI 




'/91043 




WICPC«H1CPC+1 


(120430 


000610 




<M0VE!WKTF:BR1IMM1<tMTI-INIIS777/2» 




fc'01044 




HICPCxMlCPCtl 


K20432 


t63222 




<M0VE>SPXIBR!SELBJSP2> 


020434 






BRWRTE IMM,5 fENU TO BR 




901045 




MICPC«M1CPC+1 


^2.434 


M0405 




<M0VE1 WHTE&R1 TMMi<5» 


b20436 






ALWAYS TMTA5 




(.^IU46 




MICPC*HICPCtl 


^20436 


1 10*41 




<JUMP1 ALCOND!<TMTA5-INITi3000»4>KTMIA5-INH»,777/2» 


J20444I 




TMTBT! 


BRWRTE 1^M,210 ;WRITE A DLfc, TO BR 




(5<llt»47 




MICPC«M1CPC+1 


02044 4 






<M0VE1 WFTEBRI IMMJ<220>> 


P2r-M2 






ATiWAifS T^TA5 ; SEND IT 



DMCll DDCMP PROTOCOL IMPLEMENTATION KACIll 30(1046) ll-JUL-77 12:25 PAGE 6-50 PAGE: 0208 

DDCHGH.MAC 21-APR-77 10:16 1MTA— FIRST CHARACTER OF HEADER 

in k.»sie5a micpc»hicpc+i 

(1) i'20442 lir}441 <JUMPiALCONDl<TMTA5-INIT43000*4>l<TMTA5-INITfc777/2» 



DMC11 DOCMP PROTOCOL IMPLEMENTATION 



MACm 30(1046) ll-JUL-77 12:25 PAGE 9 



DDCHGH.MAC 21 


-APR-77 10:16 


TMTB- 


-OUTPUT FIRST CHAR OF COM* 




1373 






.SBTTL TMTB— OUTPUT FIRST CHAR OF COUNT 


1374 

1375 020444 




THTB: 


f 

LDHA BR,SELA!SP16 


; GETPOINTER TO NEXT T«T LINK 




L010S1 




HICPCeHICPC+1 




(1) P20444 


070216 




<M0VE1LD«AR!BR!<SELAISP16» 




U76 029446 






MEMINC IHM.1 


t WRITE MSG TMTfcP TO FLAGS 




&01052 




NICPC«HICPC+1 




(1) ?20446 


016403 




<M0VE1WRHEH>INCHAR1IMH1<3» 




1377 920450 






MEHINC BR,SELA!SP12 


J PICK UP MSGNO 




001053 




MICPC»HICPC+1 


(1) 920450 


076612 




<M0 VE 1 WRMEM 1 I NC M AR 1 BR 1 <SELA 1 SP 1 2 » 




1378 i)20452 






STATE TMTC 


; ADDRESS TMTR STATE 




£01054 




KICPC«MICPC+1 




(1) £70452 


&00476 




<H0¥ElWRTEBRiIHMl<T«TC-IHITfr777/2» 




1 379 i»2B454 




TB0 j 


SP BR,SELB,SP2 


5 UPDATE IT 




B01055 




HICPCeHlCPC+1 




(1) 020454 


063222 




<MOVE ISPXIBRi SELB 1 SP2> 




1380 020456 






OUTPUT <MEMX!INCMAR>,SELB11BA1 


; MR 1TEL0MBXTE0F ADDRESS 




001056 




MICPC=MICPC+1 




(1) P20456 


056224 




<HOVEJ WROUT i MEMX I INCMAR KSELB1 IBA1>> 




1381 920460 






OUTPUT <M£HX J INCMAR> t SELB i IBA 2 


J WRITE HIGH BYTE OF ADDRESS 




001o5? 




HICPCs«ICPC+i 


(1) 020460 


056225 




<H0VElWR0UTlMEHXlINCMARKSEI>BiIBA2» 




1382 020462 






SP HEMX,SELB,SP7 |HIGH BITE OF 


COUNT TO SP7 




001060 




NICPCeMICPC+1 




(1) 07U462 


043227 




<H0VE1SPX!HEHX1SELB1SP7> 




1383 






>WAIT TO MASK 


OFF MEM EXT. BITS 


1384 020464 






SP IBUS f NPR,SP0 






041061 




MICPC=HICPC+1 




CI) 020464 


123200 




<MOVEJSPXI18USINPRISP0> 




1385 320466 






BRSRTE INK, 220 






001062 




HICPC«MICPC+1 




(1) 320 466 


200620 




<M0VE1 WRTEBR1 IMNi<220» 




1386 K20470 






SP BR,AANDR,3P0 






'ill 06 3 




HICPCeHlCPC+1 




(1) ^20470 


063260 




<MOVE!SPX!BR1AANDB1SP0> 




1387 u20*72 






SP IHM.1BH.SP6 


iMASK FOR MXT 




Ml 064 




MICPC»HICPC+1 




(1) -.520472 


:>03306 




<HOVE!SPX!IMM|3001SP6> 




1388 020474 






bRHRTE HEMX! INCMARj AANDB1SP6 


;IURN OFF CC2 




0et065 




MICPC*M1CPC*1 




CI) 1)20474 


054666 




<MOVE 1 HRTEBR J MEMXI INCHAR J < AANDB 1 SP6» 




1389 020476 






OUTPUT MEHX,SEt,BlT"TDAT 


jALSO WRITE COUNT TO TMTR SILO 




001066 




HICPC«H1CPC + 1 




(1) 1*20476 


142230 




<MOVE I mROUT > MEHX 1 <SELB • TMTDAT» 




1390 M20500 






BRSHFT 


jSHIFT BITS INTO CORRECT POSITION 




001067 




MICPC»M1CPC*1 




(1) C20500 


P01620 




<"0VE1SHFTBP1WRTEBRISELB> 




1)91 620502 






BRSHFT 






t>0ie70 




HICPC«HlCPCtl 




(1) 070502 


P01620 




< MO VE 1 SHFTBPt HRTEBR 1SELB> 




1392 i»?3504 






bRSHFT 






P01071 




MICPC=M1CPC+1 




(1) C20504 


M162<< 




< *0 VE I SHFTBR J WRTEBR I S£LB> 




1393 k>?«)5<!6 






BRSHf 1 






001 f T2 




hlCPC»MlCPC+l 





DMC11 DDCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-AFH-77 1,1:16 



WY11 30(1046) ll-JUL-77 12125 PAGE 9-1 
T*TB— OUTPUT FIRST CHAR OF COUNT 



PAGE J 



0210 



( 1 ) 


2 id 5 1? 6 


t..)l b20 


<M0VE!SHFTBR!WRT£BR1SELB> 


' C 1 ) 


t>20510 




OUT BRrAORBSONPR 






t k I a 7 3 


MICPC*MICPC+1 


( 1) 


020510 


&b 1310 




1395 


020512 




5PBR MEMX,SELB,SP6 jLOWBYTE OF COUNT 


(1 ) 




001074 


HICPC«M1CPC+1 


(1) 


020512 


043b2b 


<move!spbrxjmfmxiselbisp6> 


1400 


82051 4 




ALWAYS 11 


(1) 




ti 151075 


MICPC»MICPC+1 


(1) 


e20514 


1 13045 4 


<JUHP1 AbCONDJ <Il-I'NIH30B0*4>I<Il-INITk,777/2>> 


1 402 









DMCll DDCMP PROTOCOL IMPLEMENTATION MAC Yl 1 30(1046) ll-JUL-77 12125 PAGE 9-2 PAGE! 0211 



HGH.MAC 21 


-APR-77 10:16 


TMTC- 


-OUTPUT SECOND CHAR OF COUNT 


404 

44.5 






.SBTTL TMTC— OUTPUT SECOND CHAR OF COUNT 


44*6 k/2«>516 




TMTC! 


» 

BRWRTE IHM,77 J MASK TO CLEAR HXT BITS 




150107b 




HICPC»H1CPC+1 


(1) C20516 


jmP477 




<MOVEI WRTEBRi IMMI<77» 


4*5 7 120520 






SPBR BR,AAN0B,SP7 {CLEAR THEM 




0i»1077 




MICPC*MICPC+1 


(1) £-70520 


163567 




<mOVE!SPBFX;BR|AAND81SP7> 


4e>8 4>2u522 






OUTPUT DP,<SELBJT«TDAT> j WRITE TO TNT SILO 




S01 100 




MICPC*MICPC+1 


(1) i.20522 


4>62230 




<H0 VE I WROUT ! DP ! <SEL8 1 TNTD AT» 


4r9 t/20524 






BRHRTE IHM.TML8 (GET WRAPAROUND 




Belial 




HICPC»HICPC+1 


til ::?c-52i 






vHQ VE 4 i»S'ic.DJ< i i<*n i «TMi(B>> 


410 I 2«526 






CMP BR,SP16 | NRAPAORUND 




001102 




HICPC*M1CPC+1 


(1) «)2tf52o 






<SUBTC]BR1SP16> 


411 4,20530 






Z 10$ 




001 103 




MICPC»MICPC+1 


(1) P20533 


111511 




<JUMP!ZCOND!<10S-^am3000«4>I<10$-INI»777/2» 


412 £24532 






BRWRTE IMM, 6 ~ jOFFSET TO NEXT LINK 




oaii04 




HICPC*MICPC+1 


(1) B20532 


0*0406 




<MOVEl WRTEBRI IMM J <«» 


413 t>2?534 






SP BR,ADD,SP16 ; UPDATE THE POINTER 




4,01t05 




MICPC«MICPC+1 


(1) »2io534 


4163016 




<M0VEISPXIBRIADD1SP16> 


414 620536 




5S! 




429 S2I4536 






TSTATE TMTD 




001106 




HICPC»MICPC+1 


(1) f20536 


300514 




<MOVE! WRTEBRi IMMKTMTD-INITS777/2» 




401 107 




HICPC«HICPC+1 


(1) 320540 


:.63222 




<M0VEiSPXlBRlSELBiSP2> 


421 4.20542 






ALWAYS 11 j*»»«0CTC8ER 29, 1976 




0011 10 




MICPC«HICPC+1 


(1) t.20542 


100454 




<JUMPIALCONDt<Il-INITb3000*4>l<Il-INITii777/2» 


423 <.20544 




les: 


BRWRTE IMM» TMLl >G0 BACK TO FIRST LINK 




2011 It 




MICPC»MICPC+1 


(1) C2054* 


002471 




<MOVE! WRTEBRi IMM J<TMLl>> 


424 fc20546 






SP BR,SELB,SP16 




Ml 112 




MICPC«MICPCtl 


(1) b?0546 


(.6 3236 




<M0 VE ! SPX S BR 1 SELB 1 SP1 6> 


425 1,24)550 






ALWAYS 5$ 




Ml 1 1 3 




MICPC»MICPC+1 


(1) 62055P 


1 10506 




<JUMPlALCONDJ<5S-INIK3000»4>l<5$-INlT4.777/2» 



1 426 J 



OHCH DDCHP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APP-77 10:16 



MACYU 3k)C1046) ll-JUL-77 12:25 PAGE 9-3 
IMH).. RESPONSE. K I ELD-NUMBERED MESSAGE 



PAGE: 0212 



428 








. S8TTL TMTD— RESPONSE FIELD-NUMBERED MESSAGE 


429 


f>20552 




THTO: 


STATE TMTE 


(1) 




BUI 1 1 4 




MICPC*M1CPC+1 


( 1 ) 


£70552 


P<)0524 




<MQVE! MRTEBR! TMMl<TMTE-INITt777/2» 


4 30 


020554 






SP &R r DECAfSP6 jADJUSRT COUNT FOR TWO'S COMPLEMENT 


CI) 




00 1115 




MICPC B K1CPC+1 


CI) 


02055 4 


063166 




<M0VElSPX!BRSDECAiSP6> 


431 


9?a556 






C TD3 J«0 OVERFLOW 


CI) 




C$01 116 




MICPC a MlCPC+ 1 


CI) 


556 


1 1 1120 




< JUMP S CCOND ! <TD2— INIT&3000*4^ I <TD2— IN IT&777 /2» 


432 


&205O0 






SP BRfDECArSP? ^DECREMENT HIGH BYTE OF COUNT 


CI) 




frol 117 




MICPC*MICPC+1 


CI) 


#24560 


&63167 




<MOVEi$PX£BRiDECA JSP7> 


43 3 


02d562 




TD2 1 


LDMA IMMflSPll | RESP FIELD ADDR TO MAR 


CI) 




001 1 20 




MJCPC*MICPC+1 




£20562 






<M0VE1 LDMAR ! IMM ! <ISP1 16377^^ 


434 


C2e564 




TD3: 


OUTPUT HEKX,SELB!TMTDAT jMRITE IT TO SILO 


CI) 




L'01121 




MICPC=MICPC+1 


CI) 


020564 


D42230 




<M0VE1MR0UT!MEMXKSELB1TMTDAT» 


435 


070566 




XEXIT2: 


SP BR,SELB,SP2 


CD 




001122 




HICPC«MICPC+1 


CD 


£■70566 


fa63222 




<M0VEiSPX!BR!SELB!SP2> 


436 


020570 






ALHAYS It 


CD 




P0U23 




HICPC"«CPC+1 


CD 


IT24570 


100454 




<JUMPlALCONDJ<Il-INIM3000*4>l<Il-INITS,777/2» 



DMCU DDCHP PROTOCOL IMPLEMENTATION 



MACY11 30(1046) U-JUL-77 12:25 PAGE 9-4 



PAGE: 0213 



DDCHGH.MAC 21 


-APP-77 10tl6 


TMTE- 


-NUMBER FIELD— NUMBERED MESSAGE 


1438 








.SB TIL TMTE— NUMBER FIELD— NUMBERED MESSAGE 


14 39 


??a572 




TMTEl 




1 4 4H 


£20572 






SPBR IBUS»NPR,SP0 ; READ NPR CONTROL 


( D 




001124 




MICPC«MICPC+1 


CI) 


02*572 


123b00 




<MOVEiSPBRX!lBUS!NPRlSP0> 










£R0 I* • d n c v . GET Q"T 


CD 




001125 




MICPC=MICPC+1 


CD 


W0574 


1P2354 




<JUHPIBR0CONl<Il-IHI«3000*4>KU-INITk777/2» 


1412 


028576 






BRWRTE BR,SELA1SP12 


CD 




6*1126 




MICPC»M1CPC+1 


CD 


020576 


P60612 




<H0VE!WRTEBRJBR!<SELAISPJ2» 


1443 


U20600 






OUTPUT BR, <SELB1 TMTDAT> ; WRITE IT 


CD 




001127 




MICPC=MICPC+1 


CD 


120600 


062230 




<MOVE! WROUTi BRKSELBi TMTDAT» 


1*44 


B20602 






STATE TMTF 


CD 




0KJ1130 




HICPC*M1CPC+1 


CD 


P20602 


000532 




<MOVE! WRTEBRJ IMMKTMTF-INIT6777/2» 


1445 


S20604 






ALWAYS TH3 


CD 




001131 




MICPC«MICPC+1 


CD 


U20604 


110600 




<JUMPlALCONDKTH3-INITi3000*.4>t<TH3-INITi777/2» 



DNC 1 t DUCMF PPOTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 i « ; 1 6 



HACY11 3k)C104b) ll-JUL-77 12125 PAGE 9-5 
THTF— NUMBERED MSG ADDRESS FIELD 



PAGE: 



0214 



1 447 








SBTTL TMTF--NUM8ERED MSG ADDRESS FIELD 












1 449 


t) 2 0606 




TMTF : 


STATE TF1 


( 1 ) 




001 1 32 




MICPC'MICPC+i 


( 1 ) 


1*2 v}606 


*; 's37 




<MOVEl WRTEBRl I MM! <TFl-INITfc777 /2>> 


' in 


tt2d6 10 




TF2 S 


SP BR»SELB#SP2 






041 1 33 




KICPC*M1CPC + 1 


( 1 ) 


1 * « V D 1 D 


063222 




<H0 VE 1 5PX I BR J SELBI SP2^ 


1451 


124612 






BRWRTE IMM#1 *LOAD ADDRESS 


( 1 ) 




601 1 34 




MICPC»MICPC+1 


(1) 


1*24612 


0W0401 




<MOVEi MRTEBRi IHM 1 <1» 


14S3 


020614 




TF3; 


OUTPUT BR, <SELB ( TMTDAT> 


CI) 




001135 




MICPOMICPC + 1 


(1) 


620614 


062230 




<MOVE 1 WP.OUT ! BR 1 <SELB J TMTDAT» 


1454 


»20616 






ALWAYS 11 


CI) 




001136 




MICPC«MICPC+1 


(1) 


020616 


100454 




<JUHPJ ALCOND|<Il-INITfc3000*4>l<Il-INlTfc777/2>> 



DMCll DDCHP PROTOCOL IMPLEMENTATION MACYll 30(1046) ll-JUL-77 I2l25 PACE 9-6 PAGE I 0215 



DDCHGH. 


MAC 2i 


-APR-77 10S16 


TF1 


-NUMBERED MSG HEADER EOM 












.SBTTli TF1 -NUMBERED MSG HEAOER EOM 




1 461 


1120620 




TF1 


: BRHRTE IMM,2 


jEOH MASK TO BR 


(1) 




001137 




MICPC«HICPC + 1 




CI) 


1.2*623 


100402 




<M0VE!HRTEBR!IMMt<2» 




1462 


U20622 






OUTPUT BR,<SELB10TMTC0> 


[UPUATt TMTR CONTROL REGISTER 


C 1 ) 




£01140 




MICPC"M1CPC+1 




(1) 


T20622 


i>62231 




<MOVE : HROUT ! BRKSELBJ OTMTCO» 




1463 


620624 






OUTPUT BR» <SELB JTMTDAT> 


} OUTPUT A GARBAGE CHAR 


(1) 




D81141 




HICPC«MICPC+1 




CI) 


i!?*6 24 


062230 




<MOVEiWROUT!BpJ<JELBlTMTDAT» 




1464 


U20626 






BRWRTE IBUS,IIBA1 


; READ LOW ORDER FROM INBA 


(1) 




001142 




HICPC=MICPC+1 *" 




CI) 


t.20626 


023500 




<MOVE! WRTEBRl IBUSl<IIBAl» 






»?«6J» 








fit Obi) biIe.--BKAf»Ch 


(1) 




001143 




HICPC«MICPC+1 




(1) 


i)20630 


112162 




< JUMPI BR0CON l <T*TF1 -INXTfc3000M> 1 <TMTF1 


-INIT4777/2» 


1466 


1.2H632 






STATE THTH 




CI) 




44 




MICPC-MICPC+1 




CI) 


320632 


000546 




<H0VClMRTE6R!I«Mi<TMTH-IIIIT4777/2» 




1467 


020634 






ALWAYS XEXIT ■ , ; 




CI) 




001145 




HICPC»M1CPC+1 




CI) 


»2t>6 3 4 


110563 




<JUMPtALCONDJ<XEXIT-I«TS3B00#4>KXEXIT 


-INITi777/2» 



DMC11 ODCHP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC il-APP-7f S»:i6 



macy11 3wc1046) 11-jul-77 12s25 page 9-7 

tfi -numbered hsg header eok 



PAGE I 0216 



1469 






.»»*»«**»*«»»TIME CRITICAL PATH— MODIFY WITH GREAT CARE 


1470 








, SBTTL TMTH— ROUTINE TO OUTPUT DATA CHARACTERS 


1471 
1472 


220636 




T«TH: 


SPBR 1BUS»NPR,SP0 ; READ NPR CONTROL 


( i } 








KICPC=M1CPC* 1 


(1) 


020636 


123600 




<MOVEISPBRX:iBUSlNPRiSP0> 


1474 


B20b40 






BR4 5$ J if RECV NPR —PROCESS 


!l! 




8^1147 




MICPC*MICPC+1 


Ct ) 


S20640 


113151 




<uuap}BR4CONS«5$»INIT«3B00*4>l«5$-lSIT«777/2» 


1*76 


1)20642 






bR0 11 ;IF NPR IN PROGRESS —BRANCH 


(1) 




041150 




HICPC=HICPCtl 


(1) 


320642 


102054 




<JUMPiBP0COH J<Il-INITt3000*4>l<il-INII&777/2>> 


i 477 


5520644 




SSI 


OUTPUT XBUSf <ISDATnTMTDAX> s WRITE THE EVEN CHAR TO THT SILO 


(1) 




t^ll51 




MICPCsMlCPC+1 


CD 


1,20644 


1/22010 




<MOVEI WROUTi IBUS KIND ATI t TMTDAT>> 


1478 


£20646 






SP 1BUS, IIBA1,SP0 ; READ LOW BITE OF BA TO SP 


(1) 




001152 




MICPC»MICPC+1 


(1) 


820646 


023100 




<M0VE!SPX1 IBUS1 IIBA1 1SP0> 


1479 


020650 






OUTPUT BR,<INCA!IBA1> . (OUTPUT INCREMENTED BA 


f 1) 




001 153 




HICPC«MICPC+1 


CI) 


£20650 


062064 




<MOVEiWROUTJBRi<INCAUBAl» 


1460 


£20652 






SP BR,DECA,SP6 ; DECREMENT CHARACTER COUNT 


CI) 




P01154 




MICPC*H1CPC+1 


CD 


W20652 


063166 




<M0VE!SPX1BRJDECA|SP6> 


1481 


b2S>654 






C TH6 ;N0 OVERFLOW 


CI) 




i?01155 




MICPC*MICPC+1 


CI) 


124654 


111160 




<JUMPlCCONDi<TH6-INIT63000«4>KTH6-INIT&777/2» 


1492 


B70656 






SP BR,DECA,SP7 | DECREMENT HIGH BYTE OF COUNT 


CI) 




031156 




MICPC=M1CPC*1 


CI) 


[20655 


063167 




<M0VE!SPX!BRIDECA!SP7> 


1483 


020660 






Z HEH1 j BYTE COUNT ZERO 


CI) 




&01157 




MICPC»MICPC+1 


CD 


t/20660 


115407 




<JUMP:ZCOND!<HEHl-INITS3000*4>J<HEHl-INITi.777/2» 


1484 


020662 




TH6 1 




1486 


120662 






bRWRTE IBUSt THTCON jREAD THTP CONTROL CSR 


CD 




tf»ll60 




MICPC*MICPC+1 


CD 


C20662 


020620 




<MOVE 1 WRTEBR 1 IBUS1 <TMTCO»» 


1487 


1*20664 






BR4 TH9 jlF MORE ROOM IN SILO— BRANCH 


CD 




001161 




MICPC«MICPC+1 


CD 


k.20664 


113165 




<JUMpiBR4CONJ<TH9-INITi3000*4>t<TH9-INITS777/'2» 


1489 


P20666 




TMTF1: 


STATE TMTHO 


CD 




001162 




MICPC«MICPC+1 


!D 


B206&6 






<KOVE:KRTEBR!If4MKT«THO»IHITi777/2» 


1494 


320670 




XEXIT: 


SP BR,SELB,SP2 } STORE NEW TRANSMIT STATE 


CD 




001163 




MICPCsMICPC+1 


CD 


£20670 


1163222 




<M0VE!SPX!BR!SELB1SP2> 


1 495 


*20672 






ALWAYS 11 


CD 




001164 




MICPC«HICPC+1 


CD 


970672 


100454 




<JUMPlALCONDl<Il-INlTSj000#4>KH-INlTi777/2» 


1 497 


820674 




TMTHOs 




1502 


6.2067 4 




TH9s 


OUTPUT IBUS,<INDAT21TMTDAT> ;0D0 CHAR TO SILO 


CD 




0^1165 




MICPC=MICPC+1. 


CD 


920674 


022030 




<KOVE! WROUTi IBUSt <INDAT2 iTMTDAT>> 


1503 


B20676 






SP IBUS,IIBA1,SP0 (READ LOW BYTE TO BA 


CD 




■till 166 




MICPC»M1CPC+1 


CD 


"20676 


623100 




<MOVEJSPX! lBUSi IIBA1 1SP0> 



DMC11 ODC"P PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12:25 PAGE 9-8 PAGE: 0217 

DDCHGH.MAC 21-APR-77 10:16 TMTH— ROUTINE TO OUTPUT DATA CHARACTERS 



1594 


5/70700 






OUTPUT BR,<INCAtIBAl> ;OUTPUT THE INCREMENTED BA 


CD 




EsJl 167 




MICPC=MICPC+1 


CD 


£20700 


062064 




<MOVElWROUTlBR!<INCAitBAl» 


1505 


©20702 






C HOINCH 


CD 




301170 




MICPC»MICPC+1 


CD 


t'20702 


111377 




<JUHPlCCOND!<HOINCH-INITJi3000»4>J<HOINCH-INlT&777/2» 


15<>6 


&2B704 




TH8: 


SP BR,DECA,SP6 ; DECREMENT CHARACTEKCOUNT 


C 1 ) 




D<H171 




MICPC=MICPC+1 


CD 


H20704 


1/63166 




<H0VElSPX!BRlDECAtSP6> 


1507 


*20706 






C TH7 , j NO OVERFLOW 


CD 




001172 




MICPC*M1CPC+1 


CD 


U20706 


1H175 




<JUMpSCCONDKTH7-INlTt3000«4>l<TH7-INITi777/2» 


1508 


020710 






SP BR,DECA,SP7 ( DECREMENT HIGH BYTE OF COUNT 


CD 




901173 




MICPC*M1CPC+1 


CD 


SU2071? 


fc-63167 




<M0VEJSPX1BR!DECA1SP7> 


1509 


H20712 






2 HEH1 • BYTE COUNT ZERO 


CD 




S01174 




MICPC=M1CPC+1 


CD 


<;20712 


115407 




<JUMPlECOND!<HEHl-INIT63000**>l<HEHl-INIT4777/2>> 


151H 


C20714 




TH7 : 


SPBR IBUS,NPR,SP0 j READ NPR REGISTER 


CD 




Bail75 




MICPC=M1CPC+1 


H) 


^'20714 


123600 




<MOVE!SPBRX! IBUSiNPRiSP0> 


1512 


&20716 






BR0 TH2 • IF NPR BUSY WAIT TO GO 


CD 




PU1176 




MICPC*MICPC+1 


CD 


120716 


112205 




<JUMP:BR0CONJ<TH2-INIT&3000«4>KTH2-INIt&777/2» 


1514 


H20720 






STATE TMTH 


CD 




b'01 1 77 




hICPC=MICPCtl 


CD 


020720 


0005 46 




<M0VEiWPTEBRiIMMi<THTH-INIT4777/2» 


1515 


J20722 




TH3J 


SP BR,SELB,SP2 ;SAVE TSTATE 


CD 




331 200 




MICPC«M1CPC+1 


CD 


C20722 


P63222 




<M0VE1SPX<BR1SELB1SP2> 


1516 


'i20724 




TH3XJ 


BRWRTE 1MH,156 jCLEAR C0 AND C! 


CI) 




H01201 




MICPC=HICPCM 


CD 


SJ20721 


Pi30556 




<M0VE!WPTEBRlIMMi<156» 


1517 


120726 






SP BR,AANDB,SP0 (CLEAR THE BITS 


C 1 ) 




I l «1202 




MICPC«M1CPC+1 


CD 


120726 


k)6 3260 




<M0VE1 SPX ! BR ! AANDB 1 SP0> 


1518 


B2v)7 3t> 






OUT BP,<INCA10NPR> 


C I J 




UO1203 






CD 


«07 30 


t 61070 




<MOVE1WROUTX!BR!<INCA10NPR» 


1519 


S.20732 






ALWAYS 11 


(!) 




?012«» 




HICPC«M1CPC+1 


CD 


K20732 


10P454 




<JUMPlALCOND!<Il-INITS3000*4>l<ll-IMTt77 l/2» 


1521 


£20734 




TH2: 


TSTATE TH7 


CD 




Sol 205 




MICPCeHlCPC+1 


CD 


1207 34 






<MOVE! WRTEBR! IMM{<TH7-INIT&777/2» 


CD 




P>l20b 




MICPC«MICPC+1 


CD 


I 2i}736 


t b J222 




<MOVE!SPX !BRJSELB!SP2> 


1522 


120740 






ALWAYS 11 


CD 




y<;12i)7 




MICPCsMlCPCtl 


CD 


:i20740 


1. 0454 




<JUMP! ALCOND!<Il-INITi3000*4>t<Il-INITI>77 7/2» 


1524 






;»«#*«»##»»#»*»fc.ND TIME CRITICAL PATH*»#*#««#*»»»*»#*»»»*«****»*»* 


1525 











DMCll DUCMP PROTOCOL IMPLEMENTATION 
DDCHGH.M&C 2I-APP-77 1«:16 



MACY11 3HU046) U-JUL-77 12:25 PAGE 9-9 
TMTI-- SEND UNNUMBERED TYPE FIELD 



PAGE; £218 









.SBTTL l'MXI**SEND UNNUMBERED X If P£ 


FIELD 




'•20742 




XMTII LDMA I MM ^ X 


; ADDRESS 


• * ' 




' i lii 


MIC PC* MIC PC + 1 










<M0 VE I LDMAR I I MM ! <Tfc377>> 




15 V 9 


' 20744 




SP MEMXf SELBp 5P6 


jcopy it 


( 1 ) 




1-U12U 


HICPC=MICPC+1 




( 1 ) 


020744 


143226 


<M0VE!SPXJM£MXISELB1SP6> 




1 lit 


l» c V 1 *• O 




STATE TMTJ 














1 
* 


y 2iJ7 4 6 


832614 






ill 


S20753 




ALWAYS TD3 














f 1 
1 532 








»INITfc77 »/2^* 


153 J 






• SBTT" X"T J™*5END SUB — T*PE FIELD 




1534 


'720752 




TMT J • LDMA I MM St 


j ADDRESS 


( 1 ) 




Qt) 1 214 


MICPC"M1CPC+1 


(1) 


020752 




<MOVElLDMARlIMM'<STfc377» 




1535 


020754 




STATE TMTK 




(1) 




081 215 


MICPC«MICPCtl 




(1) 


020754 


PD0617 


<MOVElWRTEBRJIHMKTMTK-INITfc777/2» 




1536 


823756 




ALWAYS TD3 




(1) 




t ill 21b 


MJCPC«MICPC+1 




(1) 


t>2075o 


1 10521 


<JUMPI ALCOMDi<TD3-INITfc3000»4>!<TD3 


-INITfc777/2» 



riPS FIELD TO MAR 



DMCll DDC^P PROTOCOL IMPLEMENTATION HACY11 30(1046) ll-JUL-77 12:25 PAGE 9-10 PAGE: 0219 

UDCHGH.MAC 21-APP-77 10:16 TMTK— OUTPUT RESPONSE FIELD COHHOMfl MSG) 



1538 
1539 






.SBTTL TMTK— OUTPUT RESPONSE FIELD (UNNUNB MSG) 


1544 


C2076M 




TMTK: BRWRTF. 1MM,3 J WRITE A 3 TO BR 


( i ) 




E01217 


MICPC*«1CPC+1 


(1) 


f.?f<76 3 


000403 


<M0VEiWRTEBRtIMM!<3» 


1541 


fc2<<762 




NOP BR,SUR,SP6 , jIF TYPE LESS THAN 3 


(1) 




001220 


NICPOMICPC+1 


(U 


lr-20762 


t'63346 


<BR1SUB!SP6> 


15*2 


B20764 




TSTATE TMTL 


(1) 




J01221 


MICPOMICPC+1 


(1) 


r20764 


0006 25 


< MO VE 1 HRTEBR S IMM KTMTL- IN IU7 7 7 / 2» 


(1) 




BSM222 


MICPOHICPC+1 


(1) 


£20766 


lib3222 


<M0VElSPX!8RiSELB!SP2> 


!5J! 


■J22770 




C IMXLtf 


(1) 




B01223 


MICPC*MICPC+1 


(1) 


02*>773 


1 1 1232 


<JUMPlCCONDl<TMTL0-INITi3000*4>!<TMTL0-INIT4i77 7/2» 


1544 


620772 




ALWAYS TD2 


(1) 




001224 


MICPC«MICPCtl 


(1) 


B23772 


1 1 0520 


<JUMPJ ALCONDi<TD2-INITfc3000»4>i<TD2-INIT4777/2» 


1545 








1546 






.SBTTL TMTL— UNNUNB MSG NUMBER FIELD 


1547 


t 20771 




TMTL: TSTATE TMTM 


(1) 




001225 


HICPC«MlCPCtl 


(1) 


£20774 


P006 3/ 


<MOVE!WRTEBR!IMN|<TMTM-INITfc777/2» 


(1) 




uBl226 


MICPC«MICPC+1 


f 1) 


C20776 


t>63222 


<M0 VE 1 SPX 1 BR S SELB 1 SP2> 


1548 


k>21000 




BRWRTfc IMM,3 


(1) 




5,01227 


HICPC=MICPC+1 


(1) 


1 21000 


000403 


<MOVE!URTEBR! IMM1<3» 


1549 


P21002 




CMp BR,SP6 ;IS MESSAGE REP 


(1) 




4,01230 


MICPOM1CPC + 1 


(1) 


r 2 1^02 


0b0366 


<SUBTC!BR1SP6> 


1550 


£21004 




Z ' TMTL1 ;YE5 


(1) 




Ml 231 


MICPOMICPC+1 


(1) 


021004 


J 1 1635 


<JUMPlECOND'<TMTLl-lNITfc3000*4>!<TMTLl-INIT«i777/2» 


1551 


D2100b 




TMIL0: BRWRTE 1MM,0 ; ADDRESS CONTNAT OF ZERO 


CI) 




C01232 


MICPC«MICPC+1 


f 1) 


t 2 1006 


0U0400 


<MOVEJWRTEBR1IMMJ<0» 


15s6 


021010 




OUTPUT BR t <SELB I TMTDAT> jSEND It OUT 


(1) 




0tl233 


MICPOMICPC+1 


f 1) 


»21010 


06 22 30 


<MOVE ! WROUT 1 BRKSELB 1 TMTDAT» 


1557 


U21312 




ALWAYS 11 ; BACK TO IDLE LOOP 


( ! ) 




Z01234 


MICPOMICPC + 1 


(1) 

155J 


1 2 1 a 1 2 


100454 


<JUMPlALCOND!<Il-INIlS3000*4>!<Il-INITt777/2» 


1 56«J 


1)21014 




T*TL1: BPWRTt BR,DECA!SP12 JWMTE A RESPONSE 


( 1 ) 




C01235 


MICPC«MICPC+1 


(1) 


621014 


(•60572 


<MOVE !WPTFBR!BRJ<D£CAiSP12>> 


1561 


H21016 




ALWAYS TMTA5 


( 1 ) 




ti?1236 


MICPC=MICPC+1 


(1) 


-'21010 


1 1 ,!441 


<JU"P: AlCONDi<TMTA5-INITi3000*4>J<TMlA5-INI J 47 77/2» 


1 562 






: 



DMC11 ODCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12S25 PAGE 9-11 

DDCHGH.MAC 21-APR-77 10:16 TMTM— UNNUMB MSG— STATION ADDRESS 



PAGE! 0230 











.SBTTL TMTM— UNNUHB MSG— STATION 


AODRESS 








TMTM- 


STATE TNEOH 






m 




k>f 1 237 




MICPC=M1CPC+1 






Ml 
*. L 




(1306 41 




<MOVE ! WRTEBR lIMMJ<TNEOH-INIXfc77 7 /2» 






02 1 02 2 






ALWAYS TF2 














HICPC=MICPC+1 






I 1 1 
« !'* 


H2 J y 22 


i 




<JOMP S ALCONDKTF2-INIT63000»4> i <TF2- 


INITfc777/2>> 




g2.fc)24 




" " " ""* 


BRWRTE IMMf2 




} END Or MESSAGE TO BR 


* f Ti 




J 1 ' ': 




KICPC'MICPC+l 






r 1 1 

iia 


2 1 02 4 


000402 




<M0 VE 1 WRTEBR 1 1 MM 1 <2^^ 






?? i 


t'2 1 026 






OUTPUT BR* <SELB 1 OTMTCO^ 






( 1 1 




001 242 




MICPC»H1CPC+1 








„.,, jj-.- 


062*31 




<HO¥E i WFOUT i BR j <SELB t OIMTCO» 






S69 


**21 030 






OUTPUT BR , <5ELB 1 THTDAT> 




;OUTPUT A GARBAGE CHARACTER 


t 








HICPC=M1CPC+1 






(11 


6>2 1 30 






<M0 VE ! WROUT S BR KSELB 1 TMTDAT» 






1 570 


321 032 






BRWRTE IMM,4 




}SET UP LINE HAS GONE IDLE MASK 


(!) 




P01 244 




HICPCxHICPC + 1 








621032 


Dk)0404 




<MOVE! WRTEBR! IMMJ <4», 








02 1 w 3 4 






SPBR BR,AORB,SP10 




{UPDATE LINE STATUS WORD 


(11 




001245 




MICPC=MICPC+1 






9? 1034 


1563710 




<MOVE 1 SPBRX1 BR ! AOPB 1 SP10> 








.211336 






BRWRTE BR,AA!SP10 




; SHIFT STATUS LEFT 


(11 




001246 




MICPC=MICPC+1 








41 1 10 JO 






<M0VE1 WRTEBR! BRKAAiSP10» 








2 1 040 






BR7 10S 




jIF HDX SET— BRANCH TO CLEAR OK TO SEND 


(ii 




41247 




HICPCaMICPC+1 






( i ) 


02 J ')43 


113653 




<JUMP!BR7CONJ<10$>INITfr3000«4>!<10$- 


INITi777/2» 


' ^ '* 


02 1042 






BRWRTE IHM,376 




{MASK TO TURN OFF UNNUMB PENDDING 


(ii 




001 250 




MICPC»M1CPC+1 








P2 1042 


000776 




<MOVE! WR1EBR! IMMi<376>» 






1575 


02 1 044 




5S X 


SP BR, AANDB, SP10 




{MASK TO LINE STATUS WORD 


(11 




001 251 




MICPC»HICPC+1 






(11 


021044 


£6 3270 




<MOVE !SPX!BR! AANDB 1 SP10> 






1576 


021046 






ALWAYS TE0M2 






(11 




301252 




HICPC=M1CPC+1 






( 11 


J21i)46 


1 10740 




<JUMPIALCONDJ<TEOH2-I*ITi3000»4>l<TEOH2-INITi777/2» 


1577 


021050 




10$: 


BRWRTE IHM.176 




{CLEAR OK TO SEND AND UNNUMB PENPENDING 


(11 




091253 




MICPC»MICPC+i 






( 1 1 


S21050 


000576 




<M0VEJWRTEBRJIHHi<176» 






1578 


&21052 






ALWAYS 5$ 






(11 




001254 




HICPC=HICP01 






( 1 1 


£21052 


1 10651 




<JUMP:ALCOHD1<5S-INITS3000*4>!<5$- 


INIK777/2» 



DMCll ODCMP PROTOCOL IMPLEMENTATION MACY11 30(10461 11-JUL-77 12J25 PAGE 9-12 PAGE: 0221 



DDCHGH 


MAC 2 


-APR-77 10:16 


TIMSRV- 


-TIMEOUT ROUTINE— SENDS REP 






1580 
1581 








.SBTTL TIMSRV--TIKEOUT ROUTINE- 


—SENDS 


REP 


1582 








.ENABLE LSB 






1533 


V210S4 




TIMSRV: 


BRWRTE 1MM,177 




;MASK OFF BR REQ 


(11 




foal255 




MICPC*MICPC+1 






( 1 1 


<*21io54 


i>-'0577 




<MQ¥E I WRTEBR! IMM!<«7J» 






15»4 












1 RESET TIMER— SLICK MOVE 


1585 












;SINCE TIMER IS RESET BY WRITING 


1586 












>A 1 AND THE EXPIRATION LOOKS 


1587 












t LIKE 1— VOILA 


1588 


021056 






OUT BR,<AANDBJOBR> 




t AND THE BIT ON 


(11 




001256 




MICPC*MICPC+1 




(11 


021056 


061271 




<N0VE!WR0UTX1BR!<AANDB!0BR» 






1589 


1021060 






BRWRTE BR,SELA!SP1 




; READ STATUS BYTE 


(11 




931257 




MICPC=MICPCtl 




(11 


B21060 


(-60601 




<MOVEI WRTEBR! BR! <SELA! SP1>> 






1590 


£21362 






BR0 IDLE 






(11 




001260 




HICPCeMICPC+1 






(11 


1*21062 


1 02051 




<JUMP! BB0CON J< IDLE-IN ITfc3000*4> ! <IDLE- 


INITi777/2» 


1591 


021064 






BR7 IDLE 




;IF IN MA1NT. MODE DISABLE TIMER 


(11 




t)0 i 261 




HICPC«M1CPC+1 




(11 


fc21064 


103451 




<JtiHP!BR7CONi<IDLE-IKIT&3000«4> 


<IDLE- 


INITi777/2» 


1592 


1 21066 






SP BR,DECA,SP1S 




{DECREMENT THE COUNTER 


(11 




«?rfl262 




MICPC=MICPCtl 




(11 


fc21066 


663175 




<MOVE! SPX! BR JDECA1 SP15> 






1593 


&21073 






Z 20$ 




}IF ALL ONES HAS EXPIRED 


(11 




001263 




MICPC*MICPC+1 






(11 


B2107fl 


111670 




<JUMP!ZCOND!<?0g-INIT«3000M>!<20$-INIT&777'2» 


1594 


0/1072 




10$: 


BRWRTE BR,SELA!SP10 


; READ 


LINE STATUS 


(11 




001264 




HICPC»M1CPC+1 






( 1 > 


021072 


060610 




<MOVEi WRTEBR1 BR! <SELAiSPl0>> 






1595 


021074 






BR1 TABUPD 




{NUMBERED MESSAGE IN PROGRESS 


(11 




001265 




MICPC»MICPC+1 




(11 


021074 


116731 




<JUMPlBRlCONi<TABUPD-INIT«i3000»4>l<TA8UPD-INITi777/2» 


1596 


021076 






BR0 TABUPD 




I UNNUMBMSGIN PROGRESS 


(11 




C01266 




MICPC«M1CPC+1 






(11 


L 2 1076 


1 16331 




<JUMP1BR»C0N ! <TABUPP«If!ITt3B«3»4> 1 <T»B 




1597 


5>2 1 1 00 






ALWAYS IDLE 




;ELSE BACK TO IDLE LOOP 


(11 




£01267 




MICPC«MICPC + I 




(11 


L-211(>0 


100451 




<JUMP! ALCONDJ<IDLE-INITi3000»4>l<IDLE- 


lNIU777/2» 


1598 


U21102 




TIMEl: 








1599 


121102 




20$: 


BRWRTE IMM,2 






(11 




KB1270 




MICPC«M1CPC + 1 






f 1 1 


K71102 


bl*0402 




<M0VE1 WRTEBR! IMM«<2» 






1600 


M1104 






SP BR,SELB,SP15 




; RESET THE TIMER TICK COUNT 


(11 




;j.'127l 




MICPC=MICPC + 1 






(11 


»211u4 


»b3735 




<M0VEISPX!BR!SELB'5P15> 






1602 


If21106 






BRWRTE IMM,201 




;SEi OK TO SEND AND 


(11 




801272 




MICPCaMICPC+1 






(11 


U711U6 






<M0VE1 WRTEBR! IMM!<201» 






1 M* 3 


ki21110 






SPBR BR,AORB,SP10 




•UNNUM MSG PENDING 


(11 




H01273 




MICPC«M1CPC+1 






(11 


I 21 1 1W 


K 6 3 7 1 1? 




<*OVE!SFBRX!BR! AORB1SP10> 








I 21112 






bRSHFT 






(I) 




£01274 




MICPC»MICPC + 1 






(11 


,-21112 


k <"1S2.> 




<10VE ! £>Hf TBP I WRTEBR 1 5ELB> 







DMC 1 1 DOCMP PROTOCOL IMPLEMENTATION 
DOCHGH."AC 21-AFR-7F 10;16 



HACY11 30(1046) ll-JUL-77 12125 PAGE 9-13 
TIMSRV — TIMEOUT POUTI WE— SENDS REP 



PAGE! 0222 



1609 


021 1 14 




HP4 BS1 


(IF IN START MODE— BRANCH 


(1) 




001275 


HICPC'MlCPC+l 




(1) 


021114 


li)3lll 


<JUMPlBP4CONl<bSl-INIT«i3000*4>l<eSl 


-INITfc777/2» 


loin 


£21116 




BRWRTE BR,DECA!SP12 


( GET LAST NUMBER SENT 


(1) 




0101276 


MICPC"M1CPC+1 




(1) 


021 116 


06455 72 


<M0VL:WRTEBR|BR!<DECAISP12» 




1611 


1*21 120 




C*P BR,SP17 


{COMPARE TO LAST ACRED 


(1) 




001277 


MICPC«M1CPC + 1 




(1) 


K21120 


06»1377 


<SUBTC!BR1SP17> 




1612 


021122 




Z SNDACK (IF 


EQ --SEND ACK 


(1) 




001300 


mCPC = MICPC + l 




( 1 ) 


G21122 


111733 


<JUMP!ZCOND!<SNDACK*INIT63000«4>i<SNDACK-INlU777/2» 


161 J 


>21 124 




TIME2: LDMA IMM,T 


(LOAD ADDRESS OF TYPE FIELD IN 


(1) 




001301 


HICPC»MICPC+1 




(1) 


'»21 124 


010151 


<MOVElLDMARlIMMl<Ti377» 




lbl4 


t'21126 




MEMINC IMM,3 


(LOAD REP TYPE 


(1) 




g 01332 


M1CPC=MICPC+1 




(1) 


021126 


016403 


<MOVE!WHMEH' INCMAR1IMM1<3» 




1615 


«2113H 




MEMINC IMM,300 


(ZERO THE SUB-TYPE 


(1) 




KJ1333 


MICPC-M1CPC+1 




( t ) 


021130 


016700 


<HOVE ! WRHEM ! INCM AR i IHM 1<300» 




1616 


021132 




LDMA IMM,REPCS 


(CUMULATIVE REPS RECD 


(1) 




l,.)l 304 


MICPC*M1CPC+1 




(1 ) 


t21132 


310015 


<M0VE!LDMARiIMM!<REPCSt377» 




1617 


1,21134 




SP MEMX,SELB,SP0 


(COPY IT TO SP0 


(1) 




001305 


MICPC»MICPC+1 




(1) 


421134 


043220 


< MO VE I SPX 1 MEMX 1 SELB 1 SP0> 




1618 


£21136 




MEM BR,INCA!SP0 


; INCREMENT IT 


(1) 




toil 306 


MICPC«M1CPC + 1 




(1) 


»>21 1 36 


062 460 


<MOVE 1 WRHEM I BR KINC A I SP0» 




1619 


92 11 40 




LOMA IMM, REPST 


(ADDRESS DYNAMIC REP COUNTER 


(1) 




&91307 


MICPC«M1CPC + 1 




(1) 


421140 


010003 


<M0VE!LDMARUHM!<REPST4377» 




162*1 


"2114? 




BRWRTE HEMX.SELB 


(COPY IT TO THE BR 


CI) 




001310 


MICPC«M1CPC+1 


( 1 ) 


021142 


»$40b20 


<H0VE1 WPTEBRl MEMX ! <SELB» 




1621 


H21144 




BSHFTB 




(1) 




001311 


HICPC=MICPC+1 




(1) 


021144 


461620 


<M0VE! SHFTBR JSELB JBP> 




1622 


C21146 




MEM BR, SELB 




(1) 




001312 


MICPC=M1CPC + 1 




(1 ) 


021 1 16 


062620 


<MOVE I WRHEM 1 BR i <SELB» 




1623 


02 1 1 53 




BR0 RTHRES 




(1) 




001313 


MICPC=BICPC+1 




(1) 


P21 150 


146372 


<JUMP'BR0CONKRTHRES-INIT&3000»4>!<RlHRES-INIT&777/2» 


1628 


t'21 152 




ALWAYS IDLE 




(1) 




001314 


MICPC«MICPC+1 




(1) 


021152 


100451 


<JUHP!ALCONDJ<IDLE-INIT43000»4>J<IDLE-INITS777/2» 


1629 






.D8ABLE LSB 




163d 











DMCll DDCHP PROTOCOL IMPLEMENTATION MACY11 30(1046) ll-JUL-77 12:25 PAGE 9-14 PAGE: 0223 

DDCHGH.MAC Ji-APR-77 1«:16 TIMSRV--TIMEOUT ROUTINE— SENDS REP 



1632 


i>211Si 




TEOM; 


BRHRTE IBUS.UBBR 


(1 ) 




001 315 




MICPC»MICPC+1 


f 1 ) 


21154 


1 20620 




<M0VE2 WRTEBRi IBUS1<UBBR» 


1633 


kJ2H56 






BR0 NXMERP (NON-EXISTANT MEMORY 


(1 ) 




£01316 




KICPC=MICPC+1 


(1 ) 


<*21156 


1-16 151 




<JUMPlBR0CONt<NXMERF-INITi3000*4>i<NXHERR-INITi777/2» 


1634 


1121 160 






BRWRTE IMM, 2 v ;EOM TO BH 


(1 ) 




t,*l317 




MICPC»M1CPC+1 


(1) 


»"21160 


?00402 




<M0V£IWRTEBRi IMHJ<2» 


1635 


tit 162 






OUTPUT BR,<SELBJ0TMTC0> (WRITE TMTR CONTROL 


( 1 ) 




■501320 




MICPC»HICPC+1 


(1) 


021162 


C62231 




<«OVE ! WROUT ! BR KSELB 1 OTMTCO» 


1636 


B21 164 






OUTPUT BR, < SELB I TMTDAT> : WRITE GARBAGE DATA 


(1) 




y01321 




MICPC«M1CPC+1 


(1 ) 


021161 


J62230 




< MO VE 1 KPOUT ! BR S <SELB I TMTD AT» 


1637 


421166 






BRHRTE BR,SELA1SP1 (CKECK. FOR BOOT MODE 


(1) 




'J.U322 




MICPC*MICPC+1 


(1) 


i21166 


»60601 




<"ove:hriebr!br!<sela:spi» 


U38 


021 1 70 






BR7 BTEOM (---IF SET IS MAINT MSG 


( I ) 




t>01 123 




MICPC«MICPC+1 


(1) 


IB2U70 


113762 




<JUMPIBR7C0N J<BTEOM-INITi3000»4>i<BTEOM-INIT6777/2» 


U39 


'J21172 






SP BR,INCA,SP12 (INCREMENT THE MESSAGE NUMBER 


(1) 




&01324 




MICPC«MICPC+1 


( 1 ) 


i»2 1172 


C63072 




<move:spxibr:incaispi2> 


1640 


021174 




TtOMu 


I DMA BR,5ELA!SP16 (ADDRESS LAST TMT LINK 


( 1 ) 




<:<)1325 




MTCPC=MICPC+1 


(1 ) 


02 117 4 


C73216 




< MO VE ! LDhAR 1 BR KSELA 1 SP 1 6» 


1641 


t21176 






BRHRTE MEMX, SELB 


(1) 




i J1326 




MICPC«MICPCtl 


(1) 


1-71 176 


04H620 




< HO VE1 WPTEHR 1 MEMX 1<5ELB>> 


16*2 


«S21 200 






BP0 TE0M2 


(1) 




»«1327 




MICPC*M1CPC+1 


( 1 / 


02120H 


1 1 2 3 4 J 




<JUHPlbP0CONi<TEOM2-iNITfc3000»4>J<TEOM2-INIT4777/2» 


1643 


£21202 




TE0M3 j 


bRWRTE 1MH,375 (TURN OFF MESSAGE PENDING 


( 1 ) 




001330 




MICPC=MICPC+1 


(1) 


'J21202 


000775 




<MOVEI WPTEBRl IMM><375» 


1644 


;;21204 






SPBR BR, AANDB, SP10 ( 


( 1 ) 




i ^ 1 3 31 




MICPC«MICPC+1 


( 1 ) 


.:21204 


063670 




<M0VE1SPBRX!BR1 AANDBISP10> 


1645 


W?l 2K6 






BR0 TE0M2 (IF UNNUMB PENDING— GO AWAY 


(1) 




£*\ 3 32 




MICPC«MICPC+1 


C 1 ) 


^21206 


1 1234*) 




<JUf"P!BH0CONl<TEOM2-INITfc3000»4>!<TEOM2-INIIs,77 7/2» 


1646 








.SbTIL SNDACK — ROUTINE TO SEND AN ACK 


1647 


071 2 If; 




SNDACK: 


LDMA IMM,T 


( 1 ) 




«0H33 




MICPC=M1CPC+1 


( 1 ) 


1 212115 


£14151 




<M0VEJL0MAR!IMM!<T4377» 


1648 


f '? 1212 






MEMINC IMH,1 


( 1 ) 




334 




MICPC*M1CPC+1 


(1) 


'21212 


£16401 




<MOVE:hhMEMtINCMAR! 1MM!<1» 


1649 


L'21214 






PRWRTE 1MM,5 


( 1 ) 




I H 3 35 




MICPC*M1CPC+1 


( 1 ) 


'21 21 1 


:;.!ki U5 




<'<0VtlkiKTEbl<tIMM!<5>> 


1 65/i 


'71216 




SA2; 


MEMINC IMM, 3t"H 


( 1 ) 




'VI 136 




MICPCsrt ICPC + l 


f i ) 


71216 


:,1f> 




< u OVE!»iFMEf«:iNC«AHi lMMi<30H>> 


i 65 i 


• l \ i t a 




i>A3: 


6P bR, A0BB,SP1» 



DMC11 DDC«P PROTOCOL. IMPLEMENTATION 
DDCHGH.WftC 21-APR-77 10:16 



MACY11 30(1046) ll-JUL-77 12:25 PAGE 9-15 

SSDACK — ROUTINE TO SEND AS ACS 



PAGE: 0224 



f 1) 




C-01337 


HICPC*H1CPC+1 




(1 ) 


••21223 


063313 


<HOVE!SPXSBRlAORBlSP10> 




1652 
1658 


021222 




TE0H2 I TSTATE TMTA 




CD 




? iSi 340 


HICPC S M1CPC+1 




(1) 


(21222 


£00403 


<MOVElWPTEBRl IMM!<TMTA-INIT&777/2>> 


(1) 




fa01341 


M1CPC»MICPC*1 




( ! ) 


4)21224 


©63222 


<M0VEiSPX!BRlSELBJSP2> 




1659 


021226 




ALWAYS 11 




(1) 




gai 342 


HICPC*M1CPC+1 




U) 


i 21226 


llf.0454 


<JUMPJALCOND!<IWNIT43000«4>J<U-INIT&777/2» 


1661 


021230 




FUDGE} BRMRTE IBUS, NPR 


; READ NPR CONTROL 


C i ) 




"01 34 3 


MICPC=«ICPC*1 


11) 


C-21230 


120600 


<MOVESWRTEBR!IBUSi<NPR» 




lt>62 


i«2!232 




BR0 IDLE 


;IF i))PR GOING— LEAVE 


(1) 




001344 


MICPC*M1CPC+1 




(1) 


321232 


102851 


<JUMPlBR0CONJ<IDLE-INITS3»00»4>J<IDLE-INIT&777/2» 


1663 


S»21234 




BRHRTE BRJLDMAR, SELA J SP4 


; LOAD THE MAR 


CI) 




OKI 345 


MICPC*MICPC+1 




CD 


«>21234 


£70604 


<M0VE1 WRTEBR1BR! LDMARKBELA1 SP4>> 


1664 


C21236 




BR7 BS2 


;IF SET - READ BACK ALL 200 


(1 ) 




0«I1346 


HICPCsMlCPC+1 




CD 


(921236 


103520 


<JUHP!BR7CON}<BS2-INlT63000«4>i<BS2-lNIT«i777/2» 


1665 


» 21240 




MEHINC IBUS,INDAT1 


; OTHERWISE RESTORE TWO BITES 


(1) 




031347 


MICPC«HICPC+1 




(1) 


^21240 


036400 


<M0VE1 WRHEMJ INCMAR] IBUSi<INDATl>> 


1666 


£21242 




HEHINC 1BUS.INDAT2 




CI) 




001350 


MICPC*MICPC+1 




11) 


021242 


£36420 


<M0VE1 WPHEH1 INCHAR1 IBUSi<INDAT2>> 


1667 


321244 




BRWRTE IHM,2 


; UPDATE— UNIBUS ADDRESS 


CI) 




001351 


MICPC=MICPC+1 




CI) 


921244 


080402 


<M0VE:wRIE6R: Inn;<2>> 




1668 


021246 




SP BR,ADD,SP4 


; UPDATE NPR COUNTER 


CI) 




001352 


HICPOM1CPC+1 




CD 


P 21246 


(#63004 


<HOVE 1 SPX ! BR ! ADD J SP4> 




16o9 


■421250 




SP IBUS,IIBA1,SP0 


; UPDATE ADDRESS LOW 


CD 




40135 3 


MICPC»H1CPC+1 




CD 


4;21250 


S23133 


<MQVE! SPX! IBUS1 IIBA1 J SP0> 




167a 


021252 




OUTPUT BR,ADDUBA1 




CD 




001354 


MICPC=M1CPC+1 v 




CD 


021252 


'.J62004 


<hoveihroutibri<add:ibai» . 




1671 


'21254 




SP IBUS,IIBA2,SP0 


; READ HIGH ADDRESS 


( 1 ) 




RS1355 


HICPC'HlCPC+1 




CD 


I 21254 


C23120 


<MOVE!SPXilBUSUlBA21SP0> 




1672 


*21256 




OUTPUT BP,AC!IBA2 


; UPDATE HIGH 


CD 




M1356 


HICPC*MlCPC+t 




CD 


521256 


(j.62105 


<M0VESWR0UTiBR!<ACilBA2» 




1673 


(21260 




SP IBUS, NPR, SP0 


; READ NPR REGISTER 


CD 




f5ul357 


mcpc««icpc+i 




CD 


'.'21260 


123200 


<H0 VE ! SPX ! IBUS ! NPR J SP0> 




167* 


i>21262 




C RESEXT 


;IF CARRY— UPDATE MXT 


CD 




t'ai 360 


MICPCxHICPC+l 




CI ) 


i.21262 


105363 


<JUMPlCCONDt<RJSSEXT-INIt43000*4>i<RE5EXT-xnIT&777/2» 


1675 


821264 




ALWAYS TH3X 


;G0 DO ANOTHER NPR 


CD 




001361 


MICPC«M1CPC+1 




CD 


«!>21264 


110601 


<JUHPlALCQNDl<IH3X-INITt3000«4> 


<TH3X-INITS777/2» 



DMC11 DDCHF PROTOCOL IMPLEMENTATION MACYI1 30(1046) ll-JUL-77 12:25 PAGE 9-16 PAGE: 0225 

DDCHC-H.HAC 21-APR-7 7 10:16 SNDACK— ROUTINE TO SEND AN ACK 



1676 


ic2 1 2o6 




BTEOH: 


BRWRTE IMM,374 


; MASK FOR CLEAR MSG PENDING 


CD 




B01362 




MICPC=HICPC+1 




CD 


KJ21266 


90«774 




<M0VEIWRTEBR!IMMl<374» 




1677 


C21270 






SP BR, AANDB, 8P10 


J TURN THEM OFF IN LINE STATUS WORD 


CD 




001363 




HICPC»MICPC+1 




CD 


021270 


063270 




XMOVEJ SPX1BRJ AANDB1 SP10> 




1678 


£21272 






SP bR, SLLB.SP13 


; STORE UNRECOGNISABLE VALUE INTO orii 


CD 




001364 




HICPC-MICPC-H 




CD 


s*21272 


C63233 




<M0VE1SPX1BR1SELB1SP13> 




1679 










;S0 "RH3" HILL EXIT BACK TO IDLE LOOP 


16t)0 


r 21274 






LDMA IMH f STC 


; ADDRESS START OF TMT CHAIN 


CD 




001 365 




HICPC«H1CPC+1 




CD 
1681 


»2127 4 
f 21276 


£10467 




<«0VE!LDHAPtIMH!<STCt,377» 
SP MEMX,SELB,SP0 


;COPI LINK ADDRESS 


C 1 ) 




001366 




HICPC=H1CPC+1 




CI ) 


C21276 


043220 




<MOVE!SPXiMEMXiSELBiSP0> 




16b6 


i/21 3b>) 






TSTATE THTA 


;CHANGE XMII STATE TO LINE IS IDLE 


CD 




C01367 




MICPC»MICPC + 1 




CD 


B21 300 


200403 




<HOVE! WRTEBRlIMMJ<THTA-mlT&777/2» 


( 1 ) 




101370 




MICPC«MICPC+1 




CD 

3 688 


"21 302 

02 Us!* 


063222 




<M0VE'SPXJBRJSELBISP2> 
ALWAYS TD0N2 


,-POST A DONE 


(1) 




£01371 




MICPC*H1CPC+1 




CD 


"2130 4 


1 1 15 32 




<JUMP|ALCONDKTDON2-INIT(i3000*4>t<TDON2-INII&777/2» 


1669 


i:21306 




RL4: 


RSTATE RCVL 




CD 




till 372 




M1CPC*M1CPC+1 




CD 


021 306 


3<M705 




<«*OVEiWRTEBRlIHMJ<RCVL-INITS777/2» 


CD 




0<-l 373 




MICPC»«ICPC+1 




CD 


•J21310 


K63223 




<H0VE1SPX!BR1SELB1SP3> 




1690 


H21312 






SP IBUS, NPR, SP0 


jREAO NPR CONTROL REGISTER 


CD 




0J1374 




HICPC*M1CPC+1 




CD 


021312 


123200 




<HOVE!SPX|IBUStNPRtSP0> 




1691 


121314 






BRWRTE I«M,221 




CD 




001 175 




MICPC»MICPC+1 




C 1 ) 


021 314 


030621 




<MOVE!WRTEBR!IMMi<221» 




1692 


W21J16 






ALWAIS RK7 




CD 




KJ1 376 




HICPC=MICPC+1 




CD 


2 i 3 i n 


1 .t4&23 








1693 


(21320 




H01NCH: 


SP IBUS,IIBA2,SP0 




CD 




IC01377 




MICPC=M1CPC+1 




CD 


■,.?1 320 


i??3l2& 




<move;epx: ibusiiiba2!SP0> 




1*94 


• 71 32? 






OUTPUT BR,INCA!IBA2 


fOUTPUT INCREMENTED BA 


CD 




£01 400 




HICPC«HlCPCtl 




C 1 ) 


1*21322 


062065 




<hoveiwrout:brkincaiiba2» 




1695 


»21 324 






C 5S 


; INCREMENT BYTEW COUNT 


C 1 ) 




£41401 




MICPC«MICPC+1 




CD 


B2D21 


1 15fc03 




<.JUMP!CCONDK5S-INITfc3000M>!<5 


S-INITi777/2» 


1696 


P21 326 






ALWAYS TH8 




CD 




fc>01402 




MICPC=H1CPC+1 




CD 


»2132o 


1 1,'5 71 




<JUHP! ALCONDKTH8-IN1T63000*4>! 


<IH8-INITfc777/2» 


lb97 








! INCREMENT MXT BITS 




I69B 


J2133.J 




5s: 


SP IBUS, NPR, SP0 


; REAL) NPh RtG 1WTH CURRENT MXT BITS 


C 1 ) 




Hil 103 




^ICPC»H1CPC+1 




C 1 ) 


w - H3e 


123200 




<M0VEISPX! IBUS!NPRtSP0> 




1699 


'21 )32 






BRWRTE 1HM.4 


;WR1TE Bll 10 AUU 


C 1 ) 




t<>14t;t 




MlCPC=hlCPC+l 





DMCll DDCP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-SPR-77 l'itlo 



MACYll 30(1046) ll-JUL-77 12125 PAGE 9-17 
SNDACK-.ROUTINfc. TO SEND AN ACK 



PACE; 



0226 



( 1 ) 


92 1 3 32 


0K0401 


1 700 


J2l 334 




( 1 ) 




001 405 


( 1 ) 


'?2 1334 


Ub 1 1 


1 7fc I 


021 336 




( 1 ) 




D0 1 406 


( 1 ) 


^•21336 


1 1 3571 








17i>4 


1121 340 




( ! ) 




f>«91 437 


(1) 


•921340 


000715 


1705 


021342 




(1) 




S"O1410 


(1) 


t"21342 


1 10563 


1707 







;TURN ON PROPER MXT BITS 



<M0VE!WRTEBRJIMM1<4» 
OUT BR,<ADD!0NPR> 
MICPC«MiCPC+l 
<MOVE!WROUTX1BR|<ADDJONPR» 
ALWAYS TH8 
MICPC*MICPC+1 

< JUMP I ALCONDKTHe-IHIT«iJ000»4>i<TH8-INITfc7 7 l/2» 
} 

STATE TEOM 
MICPC«M1CPC+1 

<H0VE1 WRTEBRJ IMM KTE0H-lNII6777/2» 

ALWAYS XEXIT 

MICPC=MICPC+1 

<JUMPlALCONDi<XEXIT-INITfc3000«4>l<XEXlT-INII&777/2» 

; 



DMCll DDCMP PROTOCOL IMPLEMENTATION MACYll 30C1C46) ll-JUL-77 12J25 PACE 9-18 PAGE: 0227 

DOCHGH.MAC 21-APR*77 10:16 HEP HANDLER 









. SBTTL REP HANDLER 




M4 f-71344 




REPl 


LDMA IMM, REPCR 


; LOAD MAR ADDRESS WITH POINTER TO REPS R 




H^1411 




MICPC«MJCPC*1 




(1) £21344 


►-.13016 




<M0VElLDMARlIMM!<REPCRfc377» 




715 J21346 






SP HEMX,SELB,SP0 


> READ NUMBER OF REPS RECD 




C01412 




MICPC'MICPC+1 


(1) "#213 46 


Z43220 




<H0 VE 1 SPX i MEM X I SELB 1 SP0> 




710 02135H 






MEM DP,<INCAJSP0> 


; INCREMNT REPS RECD 




001413 




HICPC»HiCPC+l 




(1) C21350 


062460 




<MOVEiWRMEM!DPl<INCAlSP»» 




717 i:21352 






LDMA IMH,T 


; LOAD ADDRESS OF TYPE FIELD 




3.M 414 




MICPC«M1CPC+1 




(1) 02135? 


DI015I 




<M0VE!LDMAR!IMN«<TJ,377» 




718 <*7iJ5 4 






MEHINC IMM,2 


; LOAD NAK TYPE 




i/01415 




MICPC»MICPC+1 




(1) "*21354 


016402 




<M0VE1WRMEM< INCMAR! IMH|<2» 




719 »'21356 






MEMXNC 1MM,303 


;LOAD REP RESPONSE SUB-TYPE 




001416 




MICPCiMlCPC + 1 




(1) W21356 


916703 




<MOVE 1 WhMEH UNCMAR 1 1MM J <303>> 




72k! i?21J6.i 






ALWAYS SNAK 


; SEND AN UNNUMB MSG 




031417 




MICPC«MlCPCtl 




(1) 8121360 


114704 




<JUMPlALCONO!<SNAK-INITb3000«4>i<SNAK-INIT&777/2» 








i 

.SBTTL START HANDLER 




723 U21362 




START! 


BRHRTE DP,<SELA JSP10> 


;READ LINE STATUS WORD 




i 01420 




MICPCcMXCPCtl 




(1) tVH62 


'•60610 




<MOVE ! WHTEBR J DP i <SELA 1 SP10>> 




724 021364 






BPSHFT 


; GET START MODE BIT IN TESTABLE POSITION 




301421 




MICPC«M1CPC+1 




()} J21364 


if 01620 




<MOVE! SHFTBRJ WRTEBR 1 SELB> 




725 ^21366 






BR4 10$ 


;IF IN START MODE SET STACK 




001422 




MICPC«M1CPC+1 




fl) «521366 


1 17026 




<JUMP!BP4CONi<i0«»INIT63000*4>i<10S-IMT477 7/2» 










;ELSE SET UP START ERROR 


727 «2I370 






LDMA IMH,<<RTHRS+3» 






1,01423 




MICPC»M1CPC+1 




CI) &21370 


Jlfll77 




<M0VEtLDMAR!IMMJ«RTHR5+3>4377» 


720 721372 






BRHRTE IMM,200 






301424 




M1CPC«M1CPC+1 




(1) :»2U72 


S00600 




<M0VE1 hRTEBR 1 IMM|<200>> 




729 6)21 374 






ALWAYS RCEXY 






}«1425 




MICPC»M1CPC*1 




(1) ks?1374 


1 1 1522 




< JUMP J ALCONDl<RCEXY-INITfc3000*4>l«RCt.XY-lNllli77 7/2>> 


730 -421376 




10S: 


LDMA I MM, T 


;SET HP ADDRESS OF TKPE FIELD 




' u rM426 




MICPC"M1CPC*1 




(1) «21376 


t 10151 




<MOVEl LUNAR HMMJ<Ti377» 




731 /7H0" 






HEM INC I MM, 7 


;WRITE STACK TYPE 




•'(11427 




«ICPCiMlCPC+l 




( 1 ) 4 2 1 If.' 


016437 




<» , 0VE1WPMEMII»(CMAR|IMM1<7» 




732 021402 






BRWRTl IMM,n 


;StT START KECD AND UNNUhB PENDING 




4 J 1430 




MICPCiMlCPC-H 




»1> *"2U02 


i 1 3 4 1 1 




<HOVE!hPT£bP! TMMJ<11» 




73J ;7Hi&4 






ALWAYS SA2 


»SEND THE UNNUMBERED MESSAGE 




t 41 431 




HICPC*MJCPC+1 




(1) 


1 L'736 




<JlIMp; Al.CONDJ<SA2-lNITi3000»4> 


<5*2-lNITfc 77 //2» 



DHC11 ODCMP PROTOCOL IMPLEMENTATION MAC ill 30(1046) 11-JUL-7? 12S25 

DUCHGH.MAC 21-APP-77 10:16 STACK HANDLER 



PAGE S=19 



PAGEf 0226 



1735 






.SBTTL STACK HANDLER 




1736 


J21406 




STACK: BRWBtt 1MM.327 


;MASK TO CLEAR START MODE 


(1) 




001 432 


MICPC*MICPC+1 




(1) 


?21 406 


£00727 


<MQ¥E! toPTEBR! IMH1<327» 




1737 


921410 




SP BR,AANDB,SP10 


;CLEAR START MODE 


(1 J 




S5t* 1 433 


MICPC«M1CPC+1 




(1) 


w21410 


fc.63270 


<MOVEISPX1BR1AANDB1SP10> 




1738 


l?2« 41 2 




ALKAYS TIKEl 


; RESET TIMER AND IDLE 


(1) 




0.U43 4 


HICPC=H1CPC+1 




(1) 


f»7 1 4 1 2 


1 10678 


<JUHPlALCONDJ<TIMEl-INIT&3000»4>l<TIMEl-INIT&777/2» 



DMC11 ODCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 21-APR-77 10J16 



MACY11 30(1046) 
STACK HANDLER 



ll-JUL-77 12:25 TPAGE 9-20 



S.-71414 

021 41 1 
021416 



901435 
021414 i>231b<3 



1CBA22: SP IBUS, I0BA2, SP0 

MICPC=MICPC+1 
<M0 VE 1 SPX ! IBUS I I0BA2 1 SP0> 
OUTPUT DP,<INCA20BA2> 
HICPC=HICPC+1 

<nuV£t wROuf :DPi<INCAtOBA2» 



PAGE: 0229 
; READTHEH1GH 0RDEKB1TS OF BA TO SP0 
;OUTPUT THE INCREMENTED COUNT 



*2142«? 




C 5S 


;lf CARRY SET INCREMENT THE MXTBITS 




B01437 


MICPC=MICPC+1 




021420 


1 15841 


<JUHP!CCOND!<5S-INITS3000*4>!<5S 


-INIT&777/2» 


K21422 




ALWAYS RK3 






k!iJ1440 


MICPC«"M1CPC + 1 




»21422 


104641 


<JUHPlALCONDl<RK3-INITS3000«4>J<RK3-INIT477 7/2» 


to21424 




* 

5$: SP IBUS,UBBR,SP0 






041441 


HICPC=MICPC+1 




fe21424 


123220 


<MOVEISPX1I8US1UBBR1SP0> 




U21426 




BRHRTE IMH,4 






001442 


HICPC«H1CPC+1 




((21426 


900404 


<M0VE!WRTEBR1IMH1<4» 




S2143H 




OUT BR,<ADDJOBR> 






001443 


MICPC«H1CPC+1 




021430 


1*61011 


<M0VE1WR0UTX1BR'<ADDJ0BR» 




921 432 




ALWAYS RK3 






$01444 


MICPC»M1CPC+1 




021432 


104641 


<JUMPSALCONDJ<RK3-INITi3000«4>!<RK3-lNIT(i777/2>> 


021434 




NAK; LDMA IMM, NDATR 


;CUMMULATlVb NAK COUNTER 




001445 


MICPC=MICPC+1 




■421434 


i,100U 


<M0VE1LDMAR<INM1<NDATR&377» 




W21436 




SP MEMX, SELB, SP0 


; READ IT 




0dl 446 


MICPC*M1CPC+1 




M1436 


C43220 


<MOVE i SPX ! MEM XI SELB 1 SP0> 




t.-2 1 tW 




MEM MEMX, INCAJSP0 


f INCREMENT THE COUNTER 




•Ml 447 


MICPC*M1CPC+1 




L21«40 


1)42460 


<M0VE1 WPMEM J MEMX 1 <INC A i SP0» 




K21442 




LDMA 1MM.STC 


; ADDRESS START OF 1MT CHAIN 




L<!1450 


MICPC«M1CPC+1 












i.21 444 




SP MEMX, SELB, SP16 


•COPY START OF CHAIN TO LAST XMIT POINTER 




1/01451 


HICPC=M1CPC+1 




P21 444 


!143236 


<M0VE1SPX!MEMX1SELB!SP16> 




1 21416 




BRWRTfc BR,INCA!SP17 


; GETLASTMESSAGE ACKtO 




J01452 


MICPC«M1CPC+1 




W21 446 


P60477 


<H0VEJWRTEBR!BRi<IIICAISP17» 




1-21450 




SP BR,SELB,SP12 


•COPY TO CURRENT NUMBER 




0W1453 


HICPCaMlCPC+1 




421 45f. 


F63232 


<M0VE1SPX1BR1S£LB1SP12> 




021 452 




BRWRTE IMM, 6 


;WRIIE NUMBERED MSG PENDING 




h J1451 


MICPC=M1CPC + 1 




021452 


9B0406 


<MOVE! WKTEBR1 IMM!<6» 










; AND LINE HAS GONE IDLE 


: 21 454 




SP BP,AORB,SP10 


;SET IT IN LINE STATUS WORD 




i'01455 


MTCPC»M1CPC+1 




C2145 1 


lb33lK) 


<«OVEJ5PX!bRUORB!SP10> 




'21 156 




SP BR,SELB,SP15 


; RESET TIMER COUNT 




1*31456 


MICPC*MICPC + 1 




!71 456 


.'63235 


< 1 QVt 1.SPXI UKi SELB I SS 1 5> 
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STACK HANDLER 



PAGE t 



0230 



764 
(1) 


021460 


««1457 


ALWAYS TE0M1 
MICPC«M1CPC+1 




(1) 


£21460 


I 10/25 


<JUMp! ALCONDl<lEOMl-INII(i3000*4>l<IeOHl-INllfc777/2» 


765 
(t) 


I.'? 1462 


001 460 


1NINT; BRWRT& 1MM*15 
MICPC»M1CPCU 


{MASK FOR 1URN OFF ALL BUT 


( 1 ) 


«»214t>2 


W03415 


<M0 VEI WRTEBP JIMMt<15>> 




766 
( 1 ) 


021464 


001461 


SP IBUSr UBBR, 5P0 
«ICPC«M1CPC+1 


•READ BK CONTROL REGISTER 


( 1 ) 


K21464 


1 23220 


<MQ VE 2 SPX I IBUS 1 UfaBR i SPi)> 




767 
(1) 


S214&6 


001462 


Or DM/ A«Hl/D|OrW 

MICPC*MICPC+1 




( 1 ) 


621466 


£63260 






768 
( 1 ) 


021 470 


lit! 1463 


BRWRTE IMM.200 
MICPC«M1CPC+1 


{MASK FOR INTERRUPT 


( 1 ) 


C2147t> 


j00600 


CMOVE! WRTEBRI IMH!<2«e» 




769 
( 1 ) 


321472 


001464 


OUT BR r AORBiOBR 
HICPC«MCPC+1 


j INTERRUPT 


( 1 ) 


,12147 2 


5*61311 


<MOVE!WROUTX.BR!<AORB.0BR» 




770 
(1) 


W2147 4 


041465 


SP IBUSr INCON,SP0 
KICPC=H1CPC+1 


; RESTORE INPUT CONTROL CSK 


( 1 ) 


621474 


123000 


<>4OVE.SPX.1BUS.INCON.SP0> 




771 
(1) 


«i21 176 


001466 


ALWAYS NIDLE4 
MICPC«MICPC+1 




(11 
772 


»»21476 


100554 


<JUMPlALCONDi<NIDLE4-IIIIT«.3000»4>l<NIOLfc4-INITS.777/2» 
» 
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JCHGH.MAC 21 


-APR-77 13.16 


STACK 


HANDLED 


1 /83 








{FUGITIVE RECEIVE ROUTINES---D0N 'T FIT IN PAGE 


178 4 


£21511.) 




RHlS 


BRHRTE IMM,77 


(1) 




201 467 




HICPC«H1CPC+1 


(1 ) 


B21S0J 


K03477 




<M0VE.tiRTEBR.IMNI<77» 


1765 


J21502 






SP BR, AANOB, SP5 


(1) 




U01470 




HICPC»H1CPC+1 


(1) 


J21502 


06 3265 




<H0VE!SPX1BR1AANDB1SP5> 


1796 


t>215«t 






LDHA BR,<INCA1SP14> ; LOAD ADDHESS OF CURRENT COUNT 


( 1 ) 




001 471 




MICPC»M1CPC+1 


(1) 


921504 


370U74 




<M0VE!LDHAR.BR.<INCAJSP14» 


1787 


*2I506 






SP BRJ INCMAR* SELB, SP0 ;SAVE MASK 


(1 ) 




001472 




HICPC«HICPC*1 


(.} 


,.2151:6 






<move.sfx.br. inchak:selb;s;£> 


1 7 OH 


b21510 






BRWRTE BR. INCMARjSELAJSPl ; READ STATUS BYTE 


(1) 




001473 




MICPC«MICPC+1 


(1) 


«*2i510 


f. Z4601 




<M0VEi WRTEBR ! BR 1 INC* AR 1 <SELA 1 SP1 » 


1789 


921512 






BRSHFT {SHIFT IT RIGHT 


( 1 ) 




001 474 




MICPC»M1CPC+1 


(1) 


H215I2 


.'■til ft 23 




<MOVE ! SHFTBR . WRTEBRl SELB> 


1 793 


fc21514 






BR1 RH2 {NO BUFFER ASSIGNED IN MA1NT MODE 


(1) 




001475 




MICPC*MICPC+1 


(1) 


921514 


1 16502 




<JUMP<BRlCONKRH2-INIT4i3000*4>l<RH2-INITfc777/2» 


1791 


&21516 






BRWRTE MENXi INCHARr AAMDB1SP0 ; GET HIGH BYTE COUNT BITS 


(1) 




301476 




HICPC«»iCPC+l 


(1 ) 


W21516 


L154660 




<MOVE ! WPTEBR . MEMXi INCMARKAANDB . SP0>> 


1/92 


12152.1 






CP BR,SP5 {COMPARE HIGH ORDER BITS OF COUNT 


(1) 




301477 




HICPC«HICPC+1 


(1) 


021520 


060365 




<SUBTC JBR!SP5> 


1 Hi 


fc21522 






C RCFATL ;IF CARRY—TOO BIG ERROR 


(1) 




001500 




MICPC«MICPC+1 


(1) 


921522 


115113 




<JU«PlCCOND!<RCFATL-IHIT43000«4>.<RCFATL-INlTi777/2» 


1794 


921521 






Z HCLOH ;IF EQUAL COMPARE LOW ORDER BITS OF COUNI 


( 1 } 




001501 




HICPC«H1CPC+1 


(1) 


J21524 


1 15510 




<JUMPUCOND<<RCLOM.INITti3000M>!<RCLOW-lNlTii777/2» 


1795 


021526 




RH2: 


BRHRTF IRUSrIOBAl " J READ LOW BYTE Ot IN BA 


(1) 




001502 




MICPC«M1CPC+1 


(1) 


C21526 


020540 




<H0VE1 WPTEBR! IBUSKIOBAl>> 


1796 


t21530 






BR0 RCVODD flf SET IS ODD TRANSFER 


(1 ) 




0P15.43 




MICPC»MICPC+1 


(1) 


i»21530 


1 16106 




<JUMp!BR0CONl<RCVODD-INIT43»00»4>!<PCVODD-INITS777/2» 


lHwl 


4.21532 






STATE RCVKE0 


(1 ) 




£01504 




MICPC«M1CPC+1 


(1) 


02153? 


0i>0660 




<*OVEl WRTEBRl IMMJ<RCVKE0-INIT4777/2» 


lb.>2 


021534 






ALWAYS HEXIT 


(1 ) 




001505 




MICPC«M1CPC+1 


(1 ) 

IK03 


t>21534 


1 10450 




<JUMP1 ALCONDJ<REXlT-INITfc3000«4>l<REXlT-lfUHi777/2» 


1HH4 


02153b 




RCVODD! bTATE PCVK01 


(1 ) 




301506 




H1CPC«M1CPC+1 


(1) 


*715 30 


0i>tt6a7 




<M0VE1 WPTEBR 1 IMMKRCVK01-lNITfc777/2» 


1805 


O215 40 






ALWAYS REXIT 


( 1 ) 




f!01507 




MICPC«M1CPC+1 


(1) 


•52 154 1 


1 0<>45fl 




< JUMPS ALCONDi<REXI T-INIT..3000*4>.<fctX I T-INI1 47 77 /2>> 


1H06 










1«07 


'..'21542 




RCLOW 


CP MEMX» SP4 JCOWPAPE LOW OHDEK BITS OF COUNT 


( I ) 




i!01 51 




l" ICPC*M1CPC + 1 



DMC11 ODCMP PROTOCOL IMPLEMENTATION 
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DUCHGH.MAC 


2l-*PR-7? 10:16 


STACK HANDLER 




1) 


£21542 


040364 




<SUBTC1*EMX!SP4> 


1 


308 


1.21544 






C KCFATL ;CAKP*~TOQ BIG 




CI) 




001511 




MICPC=HICPC+1 




CI) 


321544 


115113 




<JUMP!CCONDl<RCFATL-INITS3000*4>J<RCFATL-INiT&777/2» 


i 


s*59 


i 21546 






ALWAYS RK2 ; ELSE CONTINUE 




1) 




f f»1512 




MICPC*H1CPC+1 




1) 


421546 


114502 




<JUHP!ALCONDl<RH2-INITi3000*4>KRH2-IHITi777/2» 


I 


'10 


02155t> 




PCFATL! 


LDMA IMM,T 




11) 




O01S13 




NICPC*M1CPC+1 




1) 


»2155? 


010151 




<MOVE!LUMAR!IMM!<T6377» 


1 


ill 


021552 






HEMINC IHH,2 




1 ) 




e-01514 




MICPC«H1CPC+1 




■ ) 


021 552 


S16402 




<MO¥EiWH«EM:ISCMAR> ISHi <2» 


1 


312 


£21554 






HEM IMM, 311 




1 ) 




301515 




MICPC«M1CPC+1 




1) 


421554 


D02711 




<H0VE!WRMEM!IMM1<311» 


1 


313 


821556 






LDMA ' IHM,«RTHRS<-1» ; ADDRESS ERROR LINK 




1) 




301516 




MICPC«MICPC4-1 ( 




1) 


J21556 


010175 




<H0 VEl LDMAR! IMM • «RTHRS+ l>fc377» 


1 


314 


H21560 






HEMINC IBUSflOBAl 




1) 




£01517 




MICPC=M1CPC+1 




1) 


021560 


036540 




<MOVE! WRMEM! I»CMAR1IBUS!<I0BA1» 


1 


J 15 


021562 






HEMINC IBUS,I0BA2 




1} 




001520 




MICPCiMICPC+1 




1) 


.'21562 


036560 




<HOVE! WRMEM 1INCMAR1IBUSUIQBA2» 


1 


316 


5J21564 






BRWRTE IHM, 20 




1 ) 




1^1521 




MICPCiMICPC+1 




1 ) 


021564 


000420 




<MOVE 1 HRTEBR t IMM J <20» 


1 


317 


021566 




RCEXY: 


hehinc im,a 




1) 




001522 




MICPC=MICPC+1 




1 ) 


921566 


016400 




<M0 VE ! WRMEM J INCMARi IMM I <0» 


1 


*13 


021570 






MEM BR,SELB 




1) 




001523 




MICPC=MICPC+1 




1) 


321570 


1)62620 




<M0VE1 WRMEM !BRKSELB» 


1 


319 


H21572 




RCEXX: 


OUTPUT IMM,<200!ORCVCO> ;FLUSH INPUT SILO 




1) 




P01524 




MICPC*M1CPC+1 




1) 


021572 


£02212 




<MOVE!WROUT!IMM!<200JORCVCO» 


i 


320 


1*21574 






SP IMH,SP2.2 ;INHIBIT FURTHER TRANSMISSIONS 




1) 




001525 




KICPC«M1CPC+1 




1) 


021574 


003002 




<H0VEISPXJIMMJSP212> 


it 


121 


021576 






SP IMM,1,SP1 ;SET INIT MODE IN PORT STATUS WORD 




1 ) 




001526 




HICPC«MICPC + 1 




i) 


»2i576 


003001 




<nOVE:SPXiIniii 1 :SPl> 


if 


22 


P2163U 






ALWAYS NTRS1 




1) 




001527 




MICPC»M1CPC+1 




1 ) 


02160k) 


1 14666 




<JUMP> ALCOND!<NTRSl-INITfc3000*4>l<NTRSl-IMTi777/2>> 


l( 


23 


«!21602 




TD0N3: 


BRWRTE MEMX,SUB1SP17 (COMPARE RESPONSE TO MSG NO 




1 ) 




0^1533 




MICPC e MlCPC+l 




1 ) 


H21602 


U40757 




< MO VE ! WRTEBR 1 MEMX ! <SUB 1 SP1 7» 


1 


J 24 


1*21604 






BR7 RH3 }IF NEGATIVE EXIT 




1 ) 




M1531 




HICPCsMICPC+1 




I) 


021604 


107562 




<JUMP!BR7CONKRH3-INITi3B00»4>KRH3-lNITi,777/2» 


1 


325 


»*21606 




TD0N2: 


LDMA BR,SELA!SP0 J ADDRESS THE TRANSM1TLINK 




1 ) 




U01532 




MICPC=MICPC+1 




1 ) 


P21606 


£79200 




<MOVEl LDHAR J BR KSELA ISP0» 


if 


326 


■921610 






MEM IMM,0 ; TURN OF ASSIGNEOANU TMTEO BITS 



PAGE: 0232 
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001533 


HICPC»M1CPC+1 




(1) 021610 


002400 


<M0 VEl WRMEM! IMM !<0» 




1827 021612 




LDMA IMM,STC 






301534 


MICPC«MICPC+1 




(1) L21612 


010067 


<H0VElL0MAR<IMMi<STC&377» 




1828 021614 




MEM IMM.THLl 


! ASSUME WRAPAROUND 




001535 


MICPC«MICPC+1 




(1) 021614 


002471 


<H0VE! WRMEM! IMM !<TML1» 




Iti29 fc-21616 




BRWRTE IMM, TML8 


! WRAPAROUND? 




001536 


MICPC«MICPC + 1 


CI) 021616 


000543 


<M0VE! WRTEBR! IMM J <TML8» 




1830 021620 




CMP BR,SP0 






1/01537 


MICPC=MICPCtl 




(1) 021620 


fbt)3o<3 


<SUBTCJBR1SP0> 




1831 '21622 




Z " . TD0N4 


JIES 




(,01540 


MICPC"M1CPC*1 


(1) 821622 


1 15543 


<JUMP12COND!<TDON4-INITS3000*4>i<TDON4-INITS777/2» 


1832 E-21624 




BRWRTE IMM, 6 


; OFFSET FOR NEXT TM1 LINK 




101541 


M1CPC=M1CPC+1 




(1) (,21624 


300406 


<MOVE! WRTEBR! IMM 1<6» 




1833 1.2 162b 




MEM BR, ADD1SP0 


; UPDATE THE POINTER 




l.itl542 


MICPC=MICPCtl 




(1) 021626 


062400 


<MOVE1WRMEM!BR!<ADD1SP0» 




1834 021630 




TD0N4: LDMA IMM,NXTSP 


jADDRF.SS DONE LINK 




($01543 


MICPC«M1CPC+1 




(1) H21630 


P10241 


<M0VE1LDMAR!IMH!<NXTSPS377» 




1835 fc21632 




LDMA MEMX,SELB1SPX!SP3 


(ADDRESS THE LINK, COPYING 




0*1544 


MICPC»MICPC + 1 




(1) 021632 


I S>3223 


<M0 VE I LDMAR ! MEMX 1 <S£LB ! SPX ! SP3» 




1836 






;ITS ADDRESS TO SP0 


1837 021634 




HEMINC IMM,2e8 


; WRITE THE INTERRUPT TYPE 




001545 


MICPC«MICPC+1 




(1) »21o34 


£16600 


< MOVE! WRMEM! INCMARi 1MM!<200>> 




18J« i}2H36 




MEM bR,INCA!SP0 


;CO('Y ACTUAL LINK ADDRESS 




0*1546 


MICPC=MICPC+1 




(1) B21636 


£02460 


<MOVE!nRMEM!BRKINCA!SP0» 




1839 e2164n 




LDMA IMM,NXTSP 


: ADDRESS PTR INT STACK 




f'01547 


MICPC»MICPC*1 




(1) *>2 164.3 


410241 


<H0VE!LDMAR!IMM!<NXTSPfc377» 




1H40 K21642 




MEM IMM, INTSTK 


;ASSUME ftRAP AROUND 




i?i51550 


KICPCsMlCPC+1 




(1) 121642 


002b42 


<MOVt! WRMEM! IMM !<IHTSTK» 




1841 221644 




BRWRTE IMM,«MMEND-2» 


; ADDRESS ENDOFINT STACK 




1,01551 


HICPC*M1CPC+1 




(1) P21644 


900776 


<M0VE! WRTEBR! IMM !«MMEND-2>» 




1B42 t?1646 




CMP BR, SP3 


;»RAPAROUND? 




(301552 


MICPC»MICPC+1 




(1) £21616 


P6J-363 


<SUBTC'bR|SP3> 




1843 U21650 




Z TDON40 


} 1ES— BRANCH 




<»«>1553 


MICPC=M1CPC+1 




(1) 02J653 


1 15556 


<JUMPJiCONUi<TDON40-INITfc3000*4> 


<TDON4H-lNlTi777/2» 


1*44 <:Vlb52 




bRWRTK IMM, 2 


; OFFSET TO NEXT PAIR 




0W1554 


MICPC*MiCPCtl 




(1) 021652 


„M^402 


<MOVE!»HtbR! IMM!<2» 




18*5 L'21654 




MEM bP,ADD!SP3 


; UPDATE POINTER 


(1) 


L-M555 


MICPC=fiCPC+l 
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PAGE : 0234 



(1 ) 


Ir2l654 


062403 




<move:*hmem:br!<add»sp3» 




1846 


i>21656 




1DON40: 


BRWRTE IMM, 20 


; WRITE. INTEKUPT PENDING 


(1 ) 




001556 




MICPC«N1CPC+1 




( t ) 


021656 


000420 




<MOVElWRTEBRiTMHt<20» 




1047 


1)21660 






SP BR,A0RB,SP1 


;1N PORT STATUS fcORU 


(1) 




001557 




NICPC*M1CPC+1 




(1) 


£21660 


063301 




<M0VE1SPX!BR1 A0RBISP1> 




1848 


C21662 






LDHA IMM, ETC 


jADORESS NEXT EMPTY PTR 


(1 ) 




1/01560 




MICPCsMICPC+1 




(1) 


021662 


010070 




<MOVE!LDMAR!IMM!<ETC&377» 




1849 


F21664 






SP MEMX,SELB,SP0 


jCOPY IT TO SP0 


(1) 




091561 




MICPC*MICPC+1 




(1) 


021664 


1*43220 




<M0VE1 SPX! MEMX t SELBI SP0> 




itase 


021666 






LDHA " IMH,STC 


J GET NEXT DONE PTR 


(l) 




001562 




MICPCeMlCPC+1 


( i ) 


[71666 


01 0067 




<moveilohar:imm:<stc&377>> 




1851 


121670 






CMP HEMX,SP0 


; IDENTICAL? 


(1) 




001563 




HICPC*MICPC+1 




(1) 


f-21670 


04036*) 




<SUBTC!MEMX1SP0> 




1852 


1121672 






Z RH3 


;FINISH PROCESSING HEADER 


(1) 




001564 




MICPC«MICPC+1 




(1) 


J21672 


105562 




<JUMPI2COND!<RH3-INIT&3000«4>!<RH3-INIT&777/2» 


1853 
1854 


021674 




TDONl: 


LDHA IHM,ISP17 


; GET LAST ACKED 


(1) 




001565 




MICPC*MICPC+1 




(1 ) 


021674 


E10153 




<H0VE!LDHAR!IMM!<ISP174377» 




1855 


C21676 






SP MEMX,SELB,SP17 


(STORE IT IN SP17 


(1) 




001566 




MICPC*HICPC+1 




(1) 


!s21676 


043237 




<NOVE 1 SPX t MEMX ! SELB J SP1 7> 




1856 


P21700 






LDHA IMM,STC 


; GET START OF TNT CHAIN 


CI) 




001567 




HICPC=H1CPC+1 




(1) 


821700 


010067 




<M0VE!L0MARUMM!<STC6377» 




1857 


b217B2 






LDMA MEMX,SELB!SPBRXISP0 


;AD1)RESS THE LINK 


(1) 




001570 




MICPC*M1CPC*1 




(1) 


VJ21702 


(753620 




<M0 VE 1 LDM AR I MEMX 1 <SELB 1 SPBRX 1 SP0» 




1858 


021704 






BRhRTE MEMX1 INCMAR, 6ELB 


; GET THE FLAGS 


CI) 




001571 




MICPC=MICPC + 1 




C 1 ) 


£21704 


K54620 




<MOVt ! NHTEBR I MEMXl INCMAR J <SELB» 




1859 


J21706 






BR1 TD0N3 


>1F BUFFER ASSIGNED PROCEED 


(1) 




601572 




MICPC"HICPC + 1 




(1) 


021706 


116530 




<JUHPlBfilCONl<TDON3-INITiJ000*4>l<TDON3 


-INIT&777/2» 


I860 


121710 






ALWAYS RH3 


j ELSE— EXIT 


(1) 




001573 




NICPC»N1CPC+1 


CI) 


021710 


104562 




<JUMP|ALCONDKRH3-INITfc3000»4>l<RH3-INIT&777/2» 


1861 












1867 


121712 




ovrrun: 


BRWRTE IMM, 4 




(1 ) 




001574 




MICPC»MiCPC+l 




(1) 


#21712 


000404 




<H0VE1 HRTEBRt IMM * <4» 




1863 


«21714 






ALWAYS RTRS0 




CI) 




001575 




MICPC=HICPC+1 




CI) 


1)21714 


1 14663 




<JUMP1ALCONDI<NTBS0-INIT«3000»4>1<NTRS0 


-INITS777/2» 


1864 












1865 






; inputs: 




1866 








SP0 « RECEIVE CHARACTER 




1867 












1868 


021716 




paswbd: 


SP IBUSrLN0SH,SP13 ;READ PASSWU SWITCH 
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(1) 




001576 


MICPC«M1CPC+1 


(1) 


U21716 


023333 


<H0VE1 SPX ! IBUS 1 LN0SM1 SP1 3> 


1869 


C21720 




Z 10$ ;IF ALL ONES NO RLD ENABLED 


CI) 




U01577 


MICPC«N1CPC+1 


CI) 


»21720 


1 15603 


<JUMPlZCONDK10S-INlTt3000«4>!<10S-iNITi7/7/2>> 


1870 


P21722 




BRWRTE I«M,6 ;CHEC* fOK ENTER MOP MODE 


C 1 ) 




001600 


HICPC»M1CPC+1 


CI) 


#21722 


'JH0406 


<M0VE1WRTEBR1 IMM1<6» 


1871 


W21724 




CMP BR,SP0 


CI) 




V01601 


BICPC»H1CPC+1 


CI) 


t 21 724 


060 36 


<SUBTC1BR!SP0> 


1872 


021726 




Z 20$ ;IF EQUAL ENTER HOP 


(1) 




i.<»1602 


MICPC=MICPC+1 


i i J 


k»2172& 


1 15611 


<JUMPlZCOND!<20S-INITt3000«4>S<208-INIlfc777/2» 


18/3 


021730 




10$l BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 


C 1 ) 




U01603 


HICPC»M1CPC+1 


(1) 


1/21734 


060601 


<MOVE! WPTEBR!BR:<SELA!SP1» 


1874 


»21732 




BRSHFT ;SH1FT IT RIGHT 


(1) 




301604 


HICPC-HICPC+1 


(1 ) 


021732 


001620 


<M0VE1 SHFTBRi WRTEBR16ELB> 


1875 


V21734 




BR1 ~ RHX ~ (MESSAGE HITH NO BUFFER ASSIGNED 


(1) 




001605 


MICPC=MlCPCtl 


(1) 


021734 


1*6740 


<JUMpJBRlCON!<RHX-IHITt3e00»4>l<PHX-INIT477 l/2» 


1876 


42 1 7 36 




BRSHFT JSHIFT RIGHT AGAIN 


CI) 




(-01600 


MICPC*M1CPC+1 


C 1 ) 


^21 736 


001620 


< MO VE1 SHFTBRI WRTEBR! SELB> 


1877 


P21740 




BR1 RCVM0 jDLE RECEIVED IN NORMAL MODE 


CI) 




i,'01607 


HICPC«M1CPC+1 


C 1 ) 


1/21740 


106732 


<JUMPiBRlCONJ<RCVH0-INIIi3000*4>!<RCVM0-INIT47 77/2» 


1878 


*»21742 




ALWAYS RK3 ; HANDLE MAIN! MODE MESSAGE 


CI) 




£01610 


MIC*>C«M1CPC*1 


CI) 


»2I742 


1*4641 


<JUMP!ALCONDS<RK3-INIT43000»4>t<RK3-INIT(i777/2» 


1879 


•J21 744 




20$: SP BR,DECA,SP4 ;COUNT FOR NUMB OF COMPARES 


C 1 ) 




001611 


MICPC«M1CPC+1 


CI) 


t«21744 


063164 


<M0VElSPX!BR10ECAiSP4> 


1880 


0217 46 




STATE EM2 


C 1 ) 




►>01612 


MICPC*MICPC+1 


CI) 


C71 74;i 


000735 


<M0VEJWRTEBRlIMMKEM2-IMITfc777/2» 


lati 


<f?175<l 




ALWAYS REXIT 


c t ) 




lzi/161 3 


MICPOM1CPC+1 


CD 

1882 


t»21750 


1 00450 


<JUMPIALCONDKREXlT-INIT430e0*4>!<REXIT-lNITfc7 77/2» 


188 ] 
18H4 






; 

.ENABL LSB 


1885 


W21752 




HCVMlj LDMA IMMrNAKST ; RESET NAKS SENT 


C 1 ) 




1/01614 


MICPC«M1CPC+1 


( 1 ) 


tf21752 


010001 


<«0VE! LUNAR 1 IMM !<NAKSTfc377» 


1*86 


B21754 




MEM IMH.l 


C 1 ) 




001615 


MICPC*M1CPC+1 


C 1 ) 


t.21754 


(.'07401 


<«0VE1 KHHEM1 1MM!<1>> 


1887 


t2l756 




LDMA IMH.bC ;AUDRESS ORlGIhftL KtXV BYTE COUN 


C 1 ) 




„«;1616 


MICPC=MICPC*1 


( 1 ) 


»" 2 1 7 5 6 


;;i J167 


<MOVE:iL!MAHIMM!<BCi«3 77» 


1 »S>H 


•>21760 




SP MEMX1 TNCMAR,SEL8,SP4 ;MOVk dYIfc COUNT TO SP4 


( 1 ) 




t il! bl 7 


MtCPC"MJCPC*l 


( 1 ) 


■i21 7 6,1 


1.S72J4 


<10V"C iSl- XIMKM*: INCMAR J StL6!SP4> 
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1889 


t.21 762 




SP NEMXI JNCMAR»SELB.SP5 ; AND 


SP5 


CD 




£,0lb20 


HICPC«M1CPC+1 




(1 ) 


B21762 


057225 


<M0VE!SPXlMEMXtINCMARlSfcLBlSP5> 






S21764 




HEM BBiUECASSPil 


;COPY SP11 FJiCM MfcSSUBY 


(1) 




601b21 


MICPC=MICPC+1 




(1) 


&21764 


l>b2571 


<«0VHWPMEM'BRI<DECAISP11» 




1891 

c a ) 


£21766 


C01622 


LDMA " IMM,NXTSP 
KICPC=M1CPC+1 




(l J 


1*21766 


010241 


<M0VE1LDMARJ IMM!<NXTSPfc377» 




1892 


021770 




SP MEHXJLDNAR, SELB.SP3 


;COPY TO 5P3 


(1) 




I J 1623 


HICPCaHlCPCtl 




C 1 ) 


321778 


05122 3 


<«0'/t ! SPX 1 MEKX 1 LDMAB 1 SELB 1 §P3> 




1893 


C21772 




MEMINC IMM, 204 


j RECEIVE DONE IMAGE 


in 




C01624 


MICPCaHICPC + 1 




(1) 


«21772 


016604 


<M0 VEl HRMEM1 INCMAR1 IMMK2B4» 




1894 


S21774 




HEM BR} LDMAR. SELA1 SP14 


;C0PY LINK ADDRESS TO NEXT 


(1) 




U01625 


MICPC«MICPC + 1 




tl) 


621774 


072614 


<M0VEtWRMEMtBR'LDHAPl<Set.AJSP14» 




1895 


021776 




M EH INC IMM,0 


jZEKO THE FLAGS 


(1) 




&01626 


MICPC=MiCPC+l 




CI) 


B21776 


016400 


<MOVEiWRHEM!INCMARlIHHl<0» 




189b 


U22000 




sp imh;inchar,SP0,300 


; WRITE A 300 TO SP0 


CI) 




001627 


MICPC=H1CPC+1 




CI) 


1*22000 


017300 


<«0VE1SPXJIMM! 1NCHAR1 SP0 ! 300> 




189? 


822402 




BRWRTfc IMM>IHCMAR,2 


; PREPARE TO ADDRESS NEXT 


CI) 




£01630 


MICPCcMlCPC+1 




CI) 


022002 


014402 


<MOVEI WRTEBR 1 IHM | INCHAR1<2>> 




1898 








j INTERRUPT STACK AND INCREMENT 


1899 








; THt MAR 


1900 


S22004 




MEM MEMX,AANDBISP0 


;MASK OFF ORIGINAL HIGH BITE 


(1) 




00i63i 


MlCPC'siiiCPC + l 




11) 


022004 


K42660 


<M0VEI WRMEM t MEMX( <AANDB I SP0» 




1901 






;0F COUNT SAVING EXTENDED MEM BITS 


1902 


322006 




MEMINC MEMX, A0RBISP5 


jCOPY TO MEMORY LINK 


CI) 




£01632 


MICPC«MICPC+1 




CI) 


022006 


856705 


<M0 VE! WRMEM < INCMAR1 HEMX1 <AORB i SP5» 




19133 


Si22010 




MEMINC Bfi,EELA!SP4 




CI) 




&01633 


MICPC«M1CPC+1 




CI) 


SI22010 


076604 


<M0VE:HRMEM1INCMAR1BR1CSELA!SP4» 




1904 


022012 




LDMA IMM,NxTSP 


(ADDRESS NEXT INT STACK 


CI) 




001634 


MICPCcMlCPC+1 




C 1 > 


S220! 2 


31024! 


<MOVEI LDHAR" IKM" <NXTSP6377» 




1915 


152231 4 




MEM " BR,ADD1SP3 




CI) 




001635 


HICPC«MICPC+1 




CI) 


622014 


062403 


<MOVE1WRHEMIBR1<AD01SP3» 




1906 


922016 




BRWRTE IMM,«MMEIID';2» 


; ADDRESSEND OF INT STACK 


CI) 




t. 01636 


HICPC»M1CPC+1 




CI) 


122016 


t>00776 


<H0VE!WRTEBRlIHMJ«HMEJlD-2>» 




1907 


022020 




CMp BR,SP3 


f WRAP AROUND 


CI) 




15 .51637 


MICPC*M1CPC+1 




CI) 


022020 


0603b3 


<SUBTC!BR!SP3> 




1«08 


022022 




Z 40$ 


;ir YES-- BRANCH 


CI) 




001640 


HICPC«MICPC+1 




CI) 


622022 


1 15651 


<JUMPlZCONDl<40S-INIK3000#4>K40$-lNIT4777/2» 


1909 


222024 




20$: 




1910 


622024 




BRWRTE IMM, 5 


; INDEX TO NEXT BUFFER 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
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PAGE: 0237 



DDCHGH 


MAC 21 


-APR-77 10:16 


STACK 


HANDLER 


C 1 ) 




001641 




MICPC««CPC + 1 


CI) 


022024 


300405 




<M0VE1WRTEBR1IMM1<5» 


1911 


e'22026 






SP BR, ADD, SP14 ; UPDATE COPY OF POINTER 


CI) 




U01642 




HICPC*MICPC+1 


( 1 ) 


£22026 


363014 




<M0VElSPX!BRlADDtSP14> 


1912 


022030 






BRWRTE IMM,STC ; ADDRESS OF WRAP AROUND POINT 


CI) 




901643 




MICPC«M1CPC+1 


CI) 


P22039 


000467 




<M0 VE 1 WKTEBR i IMM 1 <STC» 


1913 


022032 






CMP BR,SP14 ; WRAPAROUND? 


CI) 




001644 




MICPC=MICPCtl 


C 1 ) 


022032 


060374 




<SUBTC1BRISP14> 1 


1914 


422034 






Z " 50$ J IF XES— BRANCH 


CI) 




901645 




MICPC«MICPC+1 


11) 


t-22031 


115653 




<JUMP!ZCOND!<50S-INIT63000*4>i<50$-INlT&777/2» 


1915 


B22e>36 




3051 


BRWRTfc I*M,20 jMASK FOR INTERUPT PENDING 


1 1 ) 




£01646 




HICPC«MICPC+1 


CI) 


K22036 


000 4 20 




<MOVEIWRTEBR1IMM1<20» 


1916 


022040 






SP ' DP.A0RB,SP1 J UPDATE PORT STATUS WORD 


C 1 ) 




G»1647 




MICPC*MICPC+1 


(1) 


U2204J 


£63301 




<M0VE1SPXJDP1A0RBJSP1> 


1924 


S522042 






ALWAYS FLUSH 


C 1 ) 




H01650 




MICPC«M1CPC+1 


CI) 


C22042 


104415 




<JUMPJ ALCONDi<FLUSH-INITt3000«4>I<FLUSH-INlT&777/2>> 


1926 


S22H44 




40$: 


MEM IMM.INTSTK jPOINT TO START OF INTERRUPT STACK 


C 1 ) 




301651 




MICPC«M1CPC+1 


CI ) 


S22044 


002642 




<M0VEIWRMEM1IMM><INTSTK» 


1927 


1,22046 






ALWAYS 20$ 


CI) 




3wlb52 




MICPC«M1CPC+1 


C 1 ) 


<!220lb 


1 14641 




< JUMP J ALCONDl<20$-IMIT63000*4>i<20$-INlTfc7 7 l/2» 


1928 


(.22050 




50S: 


BRWRTfc IMM,RCLl j POINT TO START OF RECtlVt UUEUE 


CI ) 




001653 




MICK«HiCPC + l 


C 1 ) 


»2205ii 


000424 




<»»OVElWHTEBRi IMMKRCLl» 


1929 


V22052 






SP BR,SELB,SP14 


CI) 




001654 




MICPC=MICPC+1 


CI) 


£22052 


C63234 




<moveispx:briselbispi4> 


1930 


SV22054 






ALWAYS 30$ 










SiCFC=niCPCTi 


CD 


■J22054 


t 14646 




<JUMPlALCOND!<30$-INIT63000*4>!<30$-lNlT6,77 7/2» 


1931 








.DSABL lsb 


1932 


U22356 




NThRES 


: LDMA IMM, ST 


CD 




031656 




MICPC=M1CPC+1 


CD 


022056 


010152 




<MOVE!LDMAR> IMM'<STi37 7>> 


1933 


£22*6 <> 






SP6R KEMX.SELB.SP0 


CD 




0»lbS7 




MJCPC*M1CPC+1 


CD 


t'22060 


043620 




<MOVElSPbRX!MEMXtSELBtSP0> 


1934 


*22062 






BRWRTE BR, ADD 1 SP0 {SHIFT LEFT 


C 1 ) 




b01660 




MICPC*MiCPCtl 


C 1 ) 


B22VI62 


064400 




<MOVE!WRTEBR!BR!<ADD1SP0» 


1935 


£27»6 4 






BR4 OVRRUN 


C 1 ) 




C01661 




MICPC«f 1CPC + 1 


C 1 ) 


k'22064 


117174 




<JUMPlbR4CONl<OVKRUN-INIT4i3000*4>l<OVPKUN-INlTi77 7/2>> 


1936 


..72^66 






BRWRTK: IMM.l 


C 1 ) 




001662 




MICPC=M1CPC+1 


C 1 ) 


W7206o 


0)0401 




<move:wktebriimm!<i» 


1937 






tkRXX: 




1938 


••■22070 




MThS0t 


LDMA IMSt,«RT»M*S*J» 
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PAGE I 023B 



( 1 ) 




tt- 1663 


MICPC=M ICPC + 1 


1 ) 




010177 


OOVfe. i LDMAPi I MM ! <<RTHRSt3>4377>> 


1 939 






KEMINC IHM#0 


( 1 ) 




£01664 


NICPC"M1CPC+ 1 


( 1 ) 


£22*172 


t? 1 6400 


<MOVE!WRMLM!INCMAR1IMM!<0» 


1 940 


K22074 




MEM &R r S£LB 


C 1 ) 




i)fc) 1 665 


MICPC*MICPC+1 


( 1 ) 




0626 2"* 


<MOVE! WKMEM1BR! <SELB>> 


1911 


* 




NTPS1 1 LOMA IMMjNXTSP 


f 1 \ 




1 


MICPC=M1CPC+1 




022076 


010/41 


<M0VE!LUMAR2 I MM 2 <NXTSP6377>> 


, ?7 


0221 00 




LDMA MEHXr SELB 1 SPX 1 SP0 


c l ) 




00 1667 


MICPC*MICPC+1 






35 1220 


<MQVE 1 LDM AR 2 MEMXJ <SELB I SPXi SP0>> 




^22102 




M1TMTNP Tuu in! 


1 1 1 




0id 1 6 7 


M ICPC*M 1C PC + 1 


mi 




LI 1 h 1 






ti 104 




MEM I MMr <<RTHR3^> 


• : 






MICPC*M1CPC+1 




K22104 




<M0VE2WPM£M!IMM!<<RTHRS^^^ 


19*5 






LDMA IWM#NXTSP 


( 1 ) 




£01672 


MICPC*MICPC+1 


1 1 ) 


4922106 


1; 1 3241 


<MOVE!LDMARI IMMl<NXTSPfc377» 


1946 


9221 If 1 




MEM IMM»INTSTK {ASSUME QUEUE WRAP AROUND 


( 1 ) 




001 673 


MICPC«MICPC+ 1 


( 1 ) 


It 221 IK 


L-02642 


<M0VE1 HKMEM ! IMMi<INTSTK» 


194 7 


It'? 21 12 




BRWRTE IMM> <<MMEND"2» 


CI) 




901674 


MICPC»NICPC+1 


( 1 ) 


0221 1 2 


4/00776 


<MOVE! WPTEBR! IMM !<<MMEND-2>>> 


1948 


022114 




CMP bRySP0 


( 1 ) 






MICPC^MlCPC+l 






06 ii 3 60 


<SUBTC I BR 1 SP0> 


1 






Z NTRS2 { IT DID WRAP AROUND 


( 1 ) 




001 676 


MICPC*MICPC+1 






1 15701 




T 








C 1 ) 




16 77 


MICPC = M1CPC+1 


CI) 




0ii^402 


<H0VE £ WRTEBR 1 I MM I <2^^ 


1951 


i?22 122 




MEM BR#ADD!SP0 {UPDATE QUEUE POINTER 


( t ) 




001700 


MICPC a MiCPC+ 1 


C 1 ) 


V22122 


1162400 


<M0VEl WRMEN ! BR 1 < ADD t SP0» 


1952 


022124 




NTRS2: BRWRTE IMMf20 


1 1 ) 




001 701 


MICPC»H1CPC+1 


11) 


'122124 


£00420 


<MQVE1 WRTEBR2IMM J<20» 


1953 


i/22 1 26 




SPBR BR,A0RB,SP1 


( 1 ) 




^01 702 


MICPC"M1CPC+1 


11) 


V221 26 


£63701 


<M0VE1SPBRXIBR! A0RB1SP1> 


1954 


fc/2 2131* 




bR0 TAB1 {FLAGGED BY ERROR TYPE 


( 1 ) 




601703 


HICPC*MICPC+l 


( 1 ) 


422130 


116331 


<JUMP!BH0CONi<TABl-INIT63000*4>!<TABl-INIIiin7/2» 


1955 


J22132 




SNAK ; LDMA " IMM,ISP11 ' 


(I) 




001704 


HICPC»M1CPC+1 


(1) 


4*22132 


014)171 


<H0 VES LDKAR! IMMKISP1 14377» 


1956 


0221 34 




SP MEMX,SELB,SPU 


( 1 ) 




001705 


MICPC-MICPC+1 


( 1 ) 


»221 34 


i,43231 


<M0VE 1 SPX ! MEM XI SELB 2 $P1 1> 
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957 


U22136 






SP BR,INCA,SP11 {INCREMENT MSG EXPECTED 


( 1 ) 




f 01 706 




HICPC»M1CPC+1 


(1) 


D22136 


06 30 71 




<hoveispx:bpiincaisph> 


958 


f)2214fl 




SNAKl: 


BRWRTE iMMfl jUNNUmB PEKING BIT TO BR 


(1 ) 




001707 




MICPC«M1CPC+1 


( 1 ) 


02214U 


K<)0401 




<M0VE1«RTEBRIIMM1<1» 


959 


022142 




SNAK2: 


SP BR,AORB,SP10 { UPDATE LINE STATUS WORD 


CI) 




«,d!710 




HICPC«M1CPC+1 


CI) 


022)42 


063310 




<MOVE1SPX!BR1AORB1SP10> 


96rf 


022144 






ALMAX5 t LUSH 


( 1 ) 




0H17U 




MICPC«M1CPC+1 


CI) 
961 


(22141 


104415 




<JUMP! ALCONDJ<FLUSH-INITfc3000*4>KFLUSH-INlTi777/2>> 


?b2 


.22146 




e.r"'IRiGS 


bRWRIt i«M,24 


C 1 ) 




001712 




MICPC«MICPC+1 


C 1 ) 


4,22146 


C» ! M24 




<M0VE1 WPTEBRi IMMl <24» 


963 


t22150 






OUTPUT BR,<SELBiOBAl> 


(1) 




««1713 




MICPC«M1CPC+1 


tl) 


*22150 


062226 




<M0VE1WR0UT!BRKSELB10BA1» 


96* 


1.22152 






BRWRTE IMH,0 


C 1 ) 




JP1714 




MICPC"=MICPC + 1 


(1) 


422152 






<MOVElWRTEBR!IMMt<0» 


965 


«22154 






OUTPUT BR,<SELB{0BA2> 


C 1 ) 




<5*1715 




MICPC«M1CPC+1 


CI) 


022154 


062227 




<M0VE ! WROUT ! BR { <SELB 1 OB A2» 


966 


':22156 






SPBR IBUS,BH873,SP0 ; READ BM873 ADDRESS— 


CI) 




£01716 




MICPC»HICPC*1 


CI) 


'322156 


023740 




<MOVEl SPBRXi IBUS! BM873 1 SP0> 


967 


M2160 






OUTPUT BR, SELBJOUTDAl ;SET UP LOW BYTE OF ADDRESS 


CI) 




001717 




MICPC«M1CPC+1 


CI) 


**2216«1 


."62222 




< MOVE! WROUT t BR J <SELB]0UTDA1>> 


96S 


"22162 






BRWRTE IMM,366 ; HIGH BYTt BASE FOR ROM BOOT 


!1) 




301720 




MICPC*M1CPC+1 


C 1 ) 


«2?162 


j0i)766 




<MOVE! WRTEBP1IMM|<366» 


969 


022161 






OUTPUT BR,SEL6!0UT0A2 { 


CI) 




001721 




MICPC»M1CPC*1 


C 1 ) 


J22164 


£62223 




<MOVE!WROUTiBRi<SELB10UTDA2» 


970 


022166 




tH6: 


BRWRTE IMM,21 ( MASK FOR TIMER AND ALSO TO START 


CI) 




£41722 




MICPC=MICPC+1 


CI) 


SC22166 


300421 




<MOVES WRTEBR J IMMl<21» 


971 


i,22!7H 






OUT BR,<SELBiOBR> 


CI) 




C«M723 




MICPCxMlCPC+1 


1 1 ) 


022170 


061231 




<MOVE!WR0UTXtBR!<SELB{0BR» 


972 


«>22172 






OUT bF,<SELBJONPR> 


CI) 




001724 




M1CPC»M1CPC»-1 


( 1 ) 


022172 


'.!bl 230 




<H0VEIWR0UTX1BR!<SELB10NPR>> 


973 


fc22174 




emi ; 


BRWRTE IBUStNPR {READ NPR CONTROL 


C 1 ) 




0IM725 




MICPC«M1CPC+1 


( I ) 


!!221 74 


1 2<)600 




<MOVE! WRTEBR 1 IBUS J <NpR>> 


97* 


J2JI 76 






BR0 CHIME 


C 1 ) 




3-U726 




KICPC*MICPC+1 


C 1 ) 


-2217b 


1 «!2 371 




<JUMPlBHnCONJ<CKTIME-INlT6i3000*4> J <CKTl«t-IN IT*77 7 /2» 


975 


t 2220B 






MtMADH H'M {IF NpR DONE 


CI) 




".JI727 




MICPC = M1CPCU 


( 1 } 


«227t)i" 






<MOVLlwKMfy!*HMl-INIIi777/2>> 


^76 


02 2?^? 






ALWAYS ACLOn 
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PAGE t 0240 



(1) 




K01730 


MICPC=MiCPC+l 


(1) 


U22202 


10£>764 


<JUMP1 ALCONDi<ACLOW-INITi3000*4>KACLOW-INITS777/2» 


1977 


EV2204 




TABUPD: SPBR IBUS,RCVCON»SP0 ; READ RECEIVER CONTROL REG 


(1) 






MICPC»MICPC+1 


( 1 ) 


i>22204 


SJ23640 


<M0¥E:SPBRX!I8USSRC¥C0SiSF6> 


197S 


J7220i> 




BRWRTE BR,ADDJSP0 ;SH1FT Ltt T 


CI) 




001732 


MICPC«MICPC+1 


(13 


022206 


360400 


<MOVEI WRTEBR! SR!<ADD15P0» 


!979 


'J22210 




bR7 IDLE ; RECEIVE ACTIVE— IDLE 


(1) 




3t>1733 


MICPCsMICPCtl 


11) 


02221^ 


103451 


<JUMPiBR7CONi<IDLE-INITS3000«4>KIDLE-INITi777/2» 


1980 


022212 




TABl: LDMA " IMH,IMG10 


C 1 ) 




8*17 34 


«ICPC=HICrCTi 


(1) 


J22212 


•M»154 


<MOVEiLDHARlIMKi<IMG10i377» 


19*1 


022214 




BRWRTE IMM,2 


(t) 




BH1 7 35 


HICPC = M1CPC + 1 


(1) 


A22214 


W0402 


<MOVEJ WRTEBR 1 IMM I <2» 


1982 


02221b 




MEMINC BR,AANDB1SP10 ;SAVE BIT 1 OF SP10 


(1) 




001736 


MICPC=MiCPC + l 


£1) 


222216 


076670 


<MOVE J WRMEM : INCMAR 1 BRKAANDB 1 SP1 0» 


1983 


022220 




HEMINC BR,SELAiSPll ;SAVE SP11 


(1) 




081737 


HICPCiMlCPC+1 


(1) 


022220 


076611 


<MOVE I WKMEM J INCMARi BR i <SELA! SP1 1 >> 


1984 


'J22222 




HEMINC BP,SELA:SP12 " ;SAVE SP12 


(1) 




001740 


HICPC*MlCPCtl 


(1) 


>»22222 


076612 


<MQVE! WRMEM ! INCMAR J BR J <SELA ! SP1 2>> 


1985 


422224 




HEMINC BR,SELAJSP14 ;SAVE SP14 


(1) 




001741 


HICPCiMICPC+1 


(1) 


622224 


B/6614 


<M0 VE! MPMEMJ INCMAR! BR |<SELAiSP 14>> 


1986 


fc'22226 




MEMINC BR,SELA1SP16 ;SAV£ SP16 


( 1 ) 




P01742 


MICPC=MICPC+1 








<»iO¥Ei WRHEM < INCMAR {BRKSELA1SP1 6 >> 


1987 


072230 




HEMINC BR,SELA!SP17 ' ;SAVE SP17 


(1) 




E31743 


MICPC=M1CPC+1 


CI) 


£22230 


876617 


<MOVEJWRHEMJ INCMAR 1 BRJ<SELASSP17» 


1988 






;HAR NOW POINTS TO BASE 


1989 


K.22232 




STATE RB2 jDO NOT CHANGE BR UNTIL RB0 


CI) 




m\ '44 


KICPC*MICPC+1 


(1) 


022232 


000460 


<H0VE!WRTEBRJIMMKRB2-INIH777/2» 


1990 


022234 




LDMA " IMM, TABST • POINT TO TABLE UPDATE STATE 


CI) 




P01745 


MICPC«MlCPCn 


CI) 


622234 


313210 


<M0VEILDMARiIMMl<TABSJS377» 


1991 


K22236 




PSTATfe T8U1 |NEW FORT STATE ADDRESS 


CI) 


1,27236 




MEM I«1H,«TBUl-INIT6777/2» 


C2) 




301746 


HICPC=M1CPC+1 


(2) 


022236 


0.J2774 


<M0VE1 WRMEM !IMMi«TBUl-INIT&777/2»> 


1992 


"S22240 




SP ~ IMH,4fSP4 (INITIALISE COUNT 


(1) 




B01747 


MICPC*MICPCtl 


CI) 


022243 


303004 


<M0VElSPXiIMM!41SP4> 


1993 






;NOTE: -FIRST 6 RAM LOCATIONS 


1994 






;T0 CORE TABLE. 


1995 


022242 




LDMA IMM, BASE 






601750 


MICPC*MICPC+1 


CI) 


i.22242 


"10017 


<M0VEILDMAR!IMMJ<BASE&377» 


l99o 


k.22244 




ALWAYS RB0 


CI) 




001751 


HICPC*M1CPC+1 
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CI) 


322244 


104442 




<JUMP!ALCONDl<RB0-INIT«3000»4>J<RB0-INIT&777/2» 


1997 


022246 




EC2: 


BRWRTE IMM, 2 ; INCREMENT COU 


CI) 




E01752 




H1CPC«M1CPC+1 


CI) 


022246 


000402 




<MOVE! WRTEBR! IMM J <2>> * 


1998 


022250 






SP BR,ADD,SP4 


CD 




C01753 




HTCPC«H1CPC+1 


CI) 


t>22250 


t'D JB04 




<N0VE1SPX!BR!AD0JSP4> 


1999 


V222S2 






SP IBUS,IOBAl,SP0 (POINT TO NEXT 


CI) 




001/54 




MICPC«M1CPC+1 


CI) 


("22252 


023140 




<MOVEi SPX1 IBUS1 IOBA1JSP0> 


2000 


122251 






OUTPUT BR, ADD20BA1 


CI) 




601755 




MICPC*HICPC + 1 


CI ) 


022254 


062006 




<MOVE! WROUT ! 6R! <ADD 1 0BA1>> 


2001 


W22256 






SP IBUS,IOBA2,SP0 


CI) 




1)01756 




HICPCSMICPC+1 


(1) 


1^22256 


k)23160 




<MOVE S SPX i IBUS ! I0BA2 1 SP0> 


2002 


t'22260 






OUTPUT BR,AC!0BA2 


CI) 




201757 




HICPC»MICPC+1 


CI) 


k.22260 


062107 




<M0VEiMP0UT!BRi<ACI0BA2» 


2003 


B22262 






C " TABMXT 


C 1 ) 




£01760 




M1CPC»M1CPC+1 


CI) 


i>22262 


105366 




<JUMPJCCOND!<TABMXT-INlT&3000*4>i<TABMXT«lNiTi777/2» 


2004 


J22264 




ecx: 


BRWRTE BR,SELA1SP1 ;READ PORi STATUS 


CI) 




001761 




HICPC«M1CPC+1 


CD 


^22264 


£60601 




<M0 VE 1 WRTEBR t BR KSELA ! SP1 » 


7005 


P22266 






BR0 30$ ;INIT MODE, WRITE OUT 


CD 




J01762 




MICPC=H1CPC+1 


CD 


1)22266 


1 16374 




<JUHPJBR0CONJ<30«-INIT43000«4>J<30$-INITji777/2» 


2006 








(OTHERWISE ONLY WRITE 


2007 


k/22270 






BRWRTE BR { LDMAR, SELA 1 SP4 ;READ COUNTER 


CD 




001763 




MICPC*M1CPC+1 


CD 


fc2227i! 


3/0604 




<M0VE1 WkTEBR 1 BR ! LDMARI <SELA1SP4>> 


200d 


022272 






bP.4 " 20$ ; ALL DONE 


CD 




201764 




MICPC = M1CPCM 


CD 


(122272 


1 17371 




<JUMP!BR4CON!<20$-INITi3000»4>i<20$-INITt777/2>> 


2009 


■422274 




103: 


OUTPUT HEHXI INCMAR, SELBJOUTDAl { STORE COUNTS 


CD 




?01765 




H1CPC«M1CPC+1 










<Hv\"z.i Kr OUT ; riEMX; IriCMAfi: <3EL6;G'JTDAl>» 


2010 


S.22276 






OUTPUT MEMXHNCMAR, SELB10UTDA2 


CD 




001766 




MICPC=M1CPC+1 


CD 


322276 


HS6223 




<MOVE:hWOUTiM£MXl INCMAR ! <SE£»B 1 0UTDA2» 


2017 


r?2?00 






SP 1BUS,NPR,SP0 


C 1 ) 




L"01767 




MICPC«M1CPC+1 


CD 


-J72300 


1 23200 




<NOVEi SPX i IBUS i NPR J SP0> 


2014 


5522 302 






ALWAYS RK8 


CD 




J01773 




HICPC«H1CPC + 1 


CD 


022302 


1 ^4622 




<JUHP' ALCONDJ<RK8-INITfc3000«4>KRK8-lNIT4,77//2» 


2015 


t>223«4 




20$: 


LDMA IMM, 1 ABST 


CD 




H01771 




MICPC=M1CPC+1 


CD 


022304 


:10210 




<MOVE!LUHARt IMM><TABSTi377» 


2016 


022306 






PSTATt 13 


CD 


{ 22306 






HEM lMH,<<I3-INlT&777/2» 


C?) 




J01 /72 




niCPC=hiCPC+l 


( 2) 


S,22 ijh 


,««460 




<MOVLi wkMEM J IMH!<<I3-INITS77 7/2>» 


2B17 
C 1 ) 


..,2231* 


.'01 / 7 3 




AI.MAYS RM1 
■■tICPC*hlCPC + l 
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U) 


(,223i:t 


104420 


<JUMP1 ALCONDl<RMl-lMT«i3000»4>i<RMl-lNXT4i7 7 l/2» 


2018 


322312 




30$: bRWRTE BR1LDMAR, SELAi SP4 ; READ COUNTER 


(1 ) 




001774 


MICPC=M1CPC+1 


(1) 


4.22312 


0/0604 


<M0VEIWRTEBRiBR!LDMARKSELAlSP4» 


2019 


B2231 4 




BR7 20$ ; ALL DONE 


(1) 




001775 


MICPC»MlCPCtl 


(1) 


S722 314 


1 17771 


<JUMP!BR7CONi<20$-INITfc3000«4>i<20$-lNIT&7 7 l/2» 


202* 


122316 




ALWAYS IPS ; KEEP GOING 


(1) 




E01776 


MICPC*HICPC+1 


11) 


ii22316 


114765 


<JUMPlALCONDK10S-INIT6300e»4>!<10$-INITS777/2» 


2021 


322320 




SZLRO 


(I) 




001777 


MICPCsMlCPC+1 


(1) 


O22320 


1300000 


000000 


2022 








2023 




000001 


.END 


Aba. 


022322 


000 





ERRORS DETECTED: 







,DDC M P/CRF/OS:CRt_DMCHGH,HILOW,DUCHGH 
RUN-TIME: 5 9 SECONDS 
RUN-TIME RATIO: b8/13«4.9 
COPE USED: OK (11 PAGES) 



TEST 1 



DZOPG MACY11 3SJUB46) 11-JUL-7 7 12:11 PAGE 36 

DZD«G.P11 22-APR-77 09129 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE/ ETC) 

1672 02800 
1673 
1674 
1675 
1676 
lb77 
1678 
167? 
1680 
1681 
1682 
1683 
1684 

:t«; 

lt>86 
16P7 
1688 
1689 
169H 
1691 
1692 
1693 
1694 
1) 
1) 
ID 
tl) 
11) 
1) 
11) 
11) 
11) 

:n 

13) 
1695 
1696 
1697 
1698 
1699 

1 700 

1701 
1702 
1 733 
1 7>)4 
1705 



PAGE: 0243 



;**»••**••••••••••*••••»•»•« TEST 1 *»*»»*»#»»»»»»*»*»**♦»##»»» 

J»THIS IS A SPECIAL TEST WHICH IS ONLY EXECUTED ONE TIME, 
;»THE FIRST PASS AFTER THE DIAGNOSTIC IS LOADED. IT TYPES ON 
|»THE CONSOLE THE PART NUMBERS OF THE CROHS WHICH THIS 
(•REVISION SUPPORTS. TO FORCE A TYPE OUT PATCH LOCATION 
fOROMNUM; TO A ZERO. 

;:**•»*•««••**•••••*•*•»***•••**»*»**•*••*•****••**•••**•••••** 



C22J22 


C.273? 


£00001 


L'S«:226 


TST1: HOY 


tl,TSTHO 


'J22330 


812737 


022760 


001216 


HOV 


*TST2,NEXT 












;R1 CONTAINS BASE DNC11 ADDRESS 


<<22336 


005737 


622360 




TST 


ROHNUM ; FIRST TIME HERE? 


022 3 42 


001002 






bNE 


11 ;5KIP IF NOT 


«22 344 


lt/4402 


022362 




TYPE, 


R0M1 ; TYPE PART NUMbERS 


ii2235tf 


CI 2737 


177777 


022360 


1$: HOV 


#-1, ROHNUM ;SET FLAG TO ONLY TYPE ONCE 


4J22356 


104400 






SCOPE 


; 


♦,22 360 


300000 






ROMNUM: 




022362 


^05377 


1555104 


046504 


ROHll .ASCII 


<377><12>/DIDMG-C SUPPORTS THE FOLLOWING CROM PART NUMBERS: / 


<>22445 


377 


042012 


041515 


.ASCII 


<377><12>/DMCll-AR (M8200-XA)/ 


K22473 


377 


031462 


032055 


.ASCII 


<37^>/23-414A9/<l5><12>/23-415A9/<15><12>/23-416A9/ 


£22530 


0(15015 


031462 


032055 


.ASCII 


<l5><12>/23-*l7A9/<l5><12>/23-4l8A9/<l5><12>/23 i 4l9A9/ 


<;22566 


L'*»50l5 


031462 


032055 


.ASCII 


<15><12>/23-420A9/<15X12>/23-421A9/ 


022612 


D05377 


046504 


030503 


.ASCII 


<377><12>/0MCll-AL (M8200-YB)/ 


02264(1 


L31377 


026463 


034463 


.ASCII 


<377>/23-392A9/<15><12>/23-393A9/<15><12>/23-394A9/ 


k?22b75 


015 


031012 


026463 


.ASCII 


<t5><12>/33-395A9/<l5><12>/23-396A9/<l5><12>/23-397A9,/ 


,J22733 


015 


031012 


026463 


.ASCII 


<15><12>/23-39BA9/ 


lr.22745 


015 


031012 


026463 


.ASCIZ 


<15><12>/23-399A9/ 



;••*»•**»•*»•*»•«*••••»••••» TEST 2 #»»»»*»»*»»»**###»#»#»«*#♦» 

S»TH1S IS A SPECIAL TEST WHICH WILL RUN ON A KMC CDMC *llh 

;*writtable Control store) to load the cram with the ddcmp 

J*MICRO-CODE. FIRST BE SURE Bill Uf STAT3 IS SET UP AS FOLLOWS 
;*lsLOCAL HIGH SPEED CODE, 0=REHOTE LOW SPEED CODE THE STATUS 
>#0F STAT3 Bill DETERMINES WHICH MICRO-CODE WILL 
j»BE LOADED IN THE KMC. LOOP ON THIS TEST f OR A FEW SECONDS 
?*rO LOAD THE KMC. 

I :•»•*•••»«**••••»*•**#•••»•**•*••••••*•»••«••«**••*•»•»»«•««*• 



17-36 












; TEST 


2 




1707 


















1708 


4,'2276B 


W127 37 


000k)02 


019122b 


TST2 1 


MOV 


«2,TSTN0 




1709 


«227b6 


BI2737 


023052 


001216 




MOV 


»TST3,NEXT 




1 M0 
















;R1 CONTAINS BASE DMC 1 1 


1711 


*2277 1 


t, 44737 


fa ? 7 1 2 






JSK 


PC,MAPCK 


jCHECK FOR HI OP LO 


1712 


'J73»(H) 


•32/37 




Will i*b 




BIT 


«BIT15,STAT1 


;BE SURE DMC HAS CRAH 


1/13 


,» 2 J«)«h 


»M1 120 








BFQ 


2S 


;SK1P IF NO CRAM 


1/14 




!• <I5000 








CLh 


K0 


;P0»CRAM AOUHESS 


1715 


V.23U12 


i'1 371)2 


312 320 






MOV 


KOMMAP, H2 


;R2 POINTS TO ROMMAP 


17 16 


"?3*M6 


01 2711 


0V2 H!0 




l s : 


MOV 


»hlT10. (Rl ) 


;SET ROMO 



DZDMG MACYll 3ii(U46J ll-JUL-77 12:11 PAGE 37 

D2MG.P11 22=APP»77 0SS29 GENERAL UTILITIES (TYpEOUT, ERROR, SCOPE, ETC) 



PAGES 3244 



1717 




1 0061 


000004 




d2302b 


91226 1 


A00006 


1719 


023032 


y527 1 1 


020000 


J: 


b23<536 


005 200 




1 TOl 


tf"'23t^40 






1722 


£323044 


?01 364 




1723 


£23646 


00501 1 




1724 


3234)50 


1 i' 4400 












172 








1 727 








1728 








17 29 
















17 3? 








1732 








17 33 








1734 








17 35 


9236)52 


01 2737 


000003 




02 3 060 


B12737 




17 17 








1 738 

1 7 in 










wt-Jw / 


441 9 




J* 






001 404 


1 7 41 

: *' 




- *»i 1 






"1231 


"12705 




17 4 3 


F23104 


fi' 0561 




1714 


823 1 10 


1 fc>4 4 1 4 




17 45 


0231 12 










1 04 4 1 4 




1747 


J-2 31 16 








ifc'2 3i 2v> 






1749 


{'23122 


?6 1 225 




1750 


02 31 24 


906005 




1751 


i{231 26 


1161 04 


000005 


1752 


£•2 3132 


1 20504 




1753 


£23134 


301 401 




1754 


0231 36 


1 £- 4 1 2 




1 7 55 


10231 44» 






1756 


H23140 


1 04414 




1757 


(J231 42 


i>61&20 




1758 


^2 3144 


1 0441 4 




1 759 


B231 46 


fc&!225 








006005 




1 7ol 


•J2 3152 


1 16104 


000005 


1 762 


023156 


1 20504 




1 763 


:"23160 


0014*51 




1 7b4 


C23162 


104012 




1765 


£23164 


104400 




1766 








1767 








176b 
















177k) 








1771 








1772 









MOV 


R0,4(R1) 


; LOAD CHAM ADDRESS 


MOV 


CR2)+,6(R1) 


;LOAD WORD 10 BE WRITTEN 


BIS 


IBlTlSr CR1) 


; WRITE IT1 


INC 


R0 


; NEXT ADDRESS 


CMP 


# 2000, R0 


;DONE YET? 


BNE 


1$ 


;BR IF NO 


CIjR 


CRD 


;CLEAR SEL0 


SCOPE 




jSCOPE THi§ tE5T 



;»*»»#*»*#»*#■»*»♦##■»»#«»♦»** TEST 3 ##•»»•*##**»*#**»•#*»»*#•*» 

•»TEST OF BR RIGHT SHIFT 

? ft VERIFY THAT A DESI OF BR RSH C0U) OF A MICRO-INSTRUCTION 
.••SHIFTS THE RESULTING BR DATA RIGHT ONCE. 

; J *****#*••»••••••*»••••••••••••»»•*•»•*••••••*••«»•*••»••••••» 



; TEST 


3 






MOV 


VJf 1 &XJ1U 






MOV 


#TST4,NEXT 










?R1 CONTAINS BASE DMCll AUDRCiSS 




MSTCLR 












^MASTER CLEAR DMCll 




MOV 


DMCSR,R1 


• Rl b DMC BASE ADDRESS 




CLR 


CRD 


•CLEAR SEL0 




MOV 


#5252S,R5 


jSTART WITH 125 




MOV 


R5,*CR1) 


;P0RT4_125 




ROMCLK 




; NEXT WORO IS INSTRUCTION, ROMCLK 


PCX5304 


120500 




;BR _ P0RT4 




ROMCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK 


PCB5304 


061620 




*BR RSH_BH; "SHIFT 8R RIGHT 




ROMCLK 




;NEX1 WORD IS INSTRUCTION, ROMCLK 


PC=5304 


061225 




;P0RT5_BR 




ROR 


R5 


;R5 * "EXPECTED" 




MOVB 


5CRD.R4 


;R4 = "FOUNii" 




CMPB 


R5,R4 


;DID BR SHIFT RIGHT ONCE? 




BEQ 


1* 


; BR IF YES 




HLT 


12 


;BR RIGHT SHIFT ERROR 




ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK 


PC=S304 


061620 




; BR RSH_BR, "SHFT BR RIGHT AGAIN 




ROMCLK 




;N£XT WORD IS INSTRUCTION, ROMCLK 


PC=S304 


061225 




;P0RT5_8R 




ROR 


R5 


;R5 = "EXPECTED" 




MOVB 


5CR1),R4 


;R4 * "FOUNU" 




CMPB 


R5,R4 


;DID BR SHIFT RIGHT? 




BEQ 


2$ 


; BR IF YES 




HLT 


12 


; BR RIGHT SHIFT ERROR 




SCOPE 




; SCOPE THIS TEST 





PEST 4 



: ****»*»#»*•»*»»»»»»#-»*#*#■■ 
;*CROM READ TEST 

;*THIS TEST READS EACH ROM LOCATION AND COMPARES 
J*IT TO A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 
;*ALSO TESTS THE JUftP(I) MICRO-PROCESSOR INSTRUCTION, 



DZDMG WACfll 3CU046) ll-JUL-77 12:11 PAGE 38 PAGE I 0245 

DZDMG.P11 22-APR-77 09:29 CROM READ TESTS 

177 3 ;»IF THIS TEST FAILS CHECK YOUR CROM PART NUMBERS, 

1774 J»DZDMG-C SUPPORTS THE FOLLOWING PART NUMBERS: 

1775 ;* 



1776 












;*DMC11-AR (M8200-YA) 




1777 












I* 


23-414A9 




1778 












!* 


23-41549 




1 7 79 












»» 


23-416A9 




1 784 












;# 


23-417*$ 




1 781 












• * 


23-418A9 




1792 














23-419A9 




17B3 












;» 


23-420A9 




1 784 












;* 


23-42U9 




1785 












1 * 






1786 












;*DMCH 


-AL CM8200-YB) 




1787 












}* 


23-392A9 




1 788 












I* 


23-393A9 




1789 












• * 


23-394A9 




1 790 












;* 


23-395A9 




1 791 












• * 


23-396A9 




1792 












;* 


23-397A9 




1793 












;* 


23-398A9 




17 94 












%* 


23-399A9 




1795 














1796 


















1797 












} TEST 


4 




1798 


















1799 


123166 


012737 


000004 


001226 


TST4 : 


MOV 


«4,TSTN0 




1»00 


023174 


SS12737 


023362 


001216 




MOV 


#TST5,NEXT 




1801 


«3202 


bI2737 


023240 


001220 




MOV 


#U,LOCK 




1802 
















;R1 CONTAINS BASE DMCll ADDRESS 


18o3 


412321.) 


104412 








MSTCLR 




; MASTER CLEAR DMCll 


18.J4 


W23212 


(532737 


100300 


001366 




BIT 


IBITlSr STAT1 


;IS IT RAM UR ROM 


1805 


t.23220 


SJJ1057 








BNE 


4$ 


;SKIP TEST IF CRAM 


1806 


'2 3222 


6rf4737 


027012 






JSP 


PC,MAPCK 


fCHECK FOR HI OR LO 


18H7 


'J23226 


0tf5r>11 








CLR 


CR1) 


;CLEAR PUN 


1 3v9 


923230 


113706) 


012320 






MOV 


ROMMAP, R0 


jRO POINTS TO SOFTWARE ROM MAP 


I8fc9 


"23234 


005002 








CLR 


R2 


;R2 CONTAINS ROM SDURKSS SITS ic'l 














CLR 


R3 


;R3 CONTAINS ROM ADDRESS BITS 8&9 IN BITS 


1811 


423240 


t'42737 


014377 


023260 


16: 


BIC 


114377/21 


; CLEAR ADDRESS FIELDS OF INSTRUCTION 


) HI 2 


023246 


^50237 


023260 






BIS 


R2,2S 


J ADD BITS 0-7 TO INSTRUCTION 


1813 


»23252 


05t'337 


023260 






BIS 


R3,2t 


; ADD BITS 11»<12 TO INSTRUCTION 


1814 


!23256 


1 J4414 








ROMCLK 




;NEX1 WORD IS INSTRUCTION", k'OMCLK PC = S304 


1815 


02326/ 


1 00400 






2$: 


10M400 




;JUMPCI) TO ROM ADDRESS IN R2 d R3 


1R16 


U23262 


H27U 


002000 






MOV 


#BIT10,(R1) 


;SET ROMO 


181 I 


1*23266 


D-l 1005 








MOV 


(R0),R5' 


;PUT "EXPECTED" IN R5 


1818 


rt2327t> 


IH6104 


000W6 






MOV 


6(Rn,R4 


JPUT "FOUND" IN k4 


IBH 


J23274 


i; 20504 








CMP 


RS,R4 


;C0MPARE KOI* CONTENTS TO SOFT DUP 


182*) 


t23276 


0rfl4l4 








bE(J 


3S 


;BR IF OK 


1821 


B23 3041 


010337 


001252 






MOV 


R3,TEMP3 


;PUT ROM ADDRESS IN TEMP3 


1«22 


*23304 


4002 41 








CLC 




>FOR ERROR 11PE0UT 


1823 


f>2 3 3 Jo 


f46n37 


^01252 






ROR 


TFMP3 




1824 


023 312 


:;abki37 


l;tfl252 






ROR 


TEMP3 




1*25 


•J2331'. 


J06037 


001252 






ROR 


TEMP3 




1»26 


;--23i22 


:;50237 


001252 






BIS 


R2.TEMP3 


;TEMP3 NO* CONTAINS CORRECT ADDRESS 


1827 


C-23 326 


1 ;;-li«04 








HLT 


4 


;ROM READ ERROR 


1878 


32333H 


I iii.ii 






33: 


SC0P1 




;LOOP 10 IS IF SW09=1 
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1829 


f 23332 


BOS 7 20 




1830 


*233 34 


!3tf52J2 




1831 


«2333o 


1322702 


000400 


1»32 


023342 


301336 




1 d 13 


i>23344 


^45002 




18 34 


l»2 $346 


t* 62703 


004000 


1835 


t,23 352 


1)22703 


020000 


183b 


iJ73356 


001 330 




1 8 37 


023360 


1 W4 t0vt 




1838 








1B39 








1840 








1441 








1B42 








1843 








1844 








1 845 








1846 








1847 








1848 








1849 


u?3362 


C12737 


000005 


1 850 


»23370 


K12737 


023556 


1851 


073376 


012737 


023422 


1 852 








1853 


023404 


1 04412 




1854 


(J23406 


832737 


100000 


1 855 


t*2 3 41 4 


001057 




1 85t> 


•f?3416 


604737 


027012 


185 7 


i'23422 






1 856 


f 23422 


P04737 


026656 


1 859 


C23426 


104414 




I860 


t}23430 


1 00 400 




1861 


U23432 


104414 




1 862 


t'23434 


1 1 4377 




1 863 


k>23436 


904737 


026750 


1864 


($23442 


300002 




1865 


t>23*44 


020504 




1866 


'.23446 


001401 




1867 


'•23*5.1 


104006 




18o8 


W23452 


104401 




1 869 


H23 4S4 


bl2737 


Q23462 


1870 


023462 






1871 


fc23462 


5)04737 


026656 


1872 


J23466 


104414 




1873 




1 00403 




1874 


'123472 


1 0441 4 




1875 


U23474 


1 00000 




1H76 


t»23476 


004737 


026750 


1877 


C23502 


f. t>3010 




1878 


K23504 


W20504 




1879 


J23506 


3B1401 




1880 


*73513 


104006 




1881 


! 2 3512 


104401 




1882 


1*2351 4 


312737 


023522 


1883 


«J23522 






1884 


»?23522 


304737 


026656 



2«( 

3$: 



4SI 
5St 



TST 


(R0J + 


;BUKP SOFT POINTER 


INC 


R2 


;BUMP ROM ADDRESS 


CMP 


1400, R2 


JIS R2 TO MAX JET? 


BNfc. 


IS 


;BR IF NO 


CLR 


R2 


;YES, RESE'i R2 TO 


ADD 


f 4000, R3 


;INC TO NEXT PAGfc OF ROM 


CMP 


#20000, R3 


; DONE YET? 


BNE 


1$ 


; BR IF NO 
fSCOPE THIS TEST 


SCOPb 





;••••*•••*•••••••*«*«*•••*•• TEST 5 *»•»***«■«*#»»#*#»»»»»#»***» 

;»CROM TEST OF JUMP(I) NEVER MICRO-PROCESSOP INSTRUCTION. 
{•PERFORM THE JUMP INSTRUCTION 

J "VERIFY THAT THE JUMP DID NOT OCCUR BY REAOING 

;»THE CONTENTS OF THE NEW ROM PCC*T SHOULD INCREMENT BY ONE). 

; :»»*#»#•»»»»»»*»«»»»*##*«**#**»#*»«*»»***»«#»#»»**•»»#»•#»»*»» 

J TEST 5 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BNE 
JSR 



I5,TSTN0 
tTST6f NEXT 
US, LOCK 



IBIT15,STAT1 
68 + 2 

PC,M*PCK 
PC, CLR ALL 



JSR 

ROMCLK 
100400 
ROMCLK 
114377I<400*0> 



JSR 
2 

CMP 

BEO 

HLT 

SC0P1 

MOV 



PC, ROMDAT 



R5.84 

2S 

6 



JSR 

ROMCLK 
100403 
ROMCLK 
100000t<400*0> 



JSR 

10 

CMP 

BEO 

HLT 

SC0P1 

MOV 

JSR 



PC, RO/MDAT 



R5,R4 
4( 



•5$, LOCK 



;R1 CONTAINS BASE DMC11 ADDRESS 
; MASTER CLEAR DMC11 
;IS IT CRAM? 
;SKIP TEST If YES 
jCHECK FOR Hi OR LO 

;CLtAR ALL CONDITIONS 

;NEXT WORD IS INSTRUCTION, KOMCLK PC»5304 
J START AT ROM PC=0 

j NEXT MORU IS INSTRUCTION, KOMCLK PC=5304 
;JUMP TO ROM PC OF 1777 

;R5=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
jINOEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

} ERROR, CKOM PC IS WRONG 
•LOOP TO 1$ IF SW09»1 
;NEW SCOPl 



L i- {CLEAR ALL CONDITIONS 

; NEXT WORD IS INSTRUCTION, ROMCLK PC=5 304 
; START AT RUM PC*3 

;NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
fJUHP TO ROM PC OF 

fR5=EXPECTEU ROM DATA, R4«=ACTUAL ROM DATA 
; INDEX 

;ARE NEW PC CONTENTS CORRECT? 
SBR IF YES 

; ERROR, CROM PC IS WRONG 
jLOOP TO 3$ IF SW09=1 
J NEW SCOPl 



PCCLRALL 



; CLEAR ALL CONDITIONS 
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1885 


SV23526 


1B4414 




188b 


12353^ 


100436 




lb87 


U2 3532 


104414 




1888 


723534 


104125 




1889 


K23536 


£04737 


026750 


1893 


123542 


F. »0tf lb 




1 891 


4123544 


022504 




1892 


fc>23546 


C01 401 




1893 


623550 


104006 




18i4 


P23552 


104401 




1895 


62355 1 


1 04400 




1890 








18 9? 








1898 








1«99 








1900 








1901 








1902 








1903 








19:*4 








19fc5 








1906 


fe23556 


1512737 


000006 


1907 


J2356 4 


U12737 


U23736 


1908 


5,23572 


.4127 37 


023bl6 


19i>9 








1910 


i>23600 


1 04412 




1911 


1*23602 


fc32737 


1 Wife 


1912 


023610 


k«J1051 




191 3 


K23612 


S04737 


077H12 


1914 


U23616 






1915 


I 23616 


1 D4414 




1916 


i.12 36 20 


1 00400 




1917 


023622 


1 0441 4 




1918 


J23624 


1 14777 




1919 


t 23626 


104737 


026750 


1920 


^■2 36 32 


k »3776 




1 921 


i-23634 


1*20501 




1922 


1,23636 


CX1401 




1923 


I*23b4i> 


1 J4»06 




1924 


.-23642 


1,34401 




1925 


^73644 


,'1 2737 


023652 


1 92b 


J23652 






1 977 


k-23b52 


1«t4*l4 




1928 


f23651 


1 00403 




1929 


*-,?3bi5 


104414 




1930 


t.23663 


1 f.i*00 




1931 


H23662 


0B4737 


02675 ■) 


1932 


12366$ 


000000 




1933 


023b7,1 


r2K504 




1931 


1,7 1672 


£01401 




1935 


»J23f,74 


1 J Ik 3b 




19Jb 


i)23b Ih 


1 044^1 




1937 


■??3 lid 


i. W7 37 


«2 Hith 


1 9J8 


J2 3706 








*17 170b 


1 t' 4 1 1 1 




1 9 4 t 


'•2 37 1 


' 0i4»)»> 
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2$: 
3$: 



ROMCLK 
100406 
HOMCLK 

If 4125!<400»0> 

JSR PC, ROME 

16 
CMP 
BEQ 
HLT 
SCOPl 
SCOPE 



R5,R4 
6$ 



;NEXT WORD IS INSTRUCTION, KOMCLK PC*5304 
; START AT ROM PC=6 

(NEXT WORD IS INSTRUCTION, ROMCLK PCs5304 
;JUMP TO ROM PC OF 525 

;R5*EXPECTEU ROM DATA, R4* ACTUAL ROM DATA 
,- INDEX 

jXRE NEW ROM PC CONTENTS CORRECT? 
;BR IF YES 

; ERROR, CROM PC IS WRONG 
;LOOP TO 56 IF SW59=1 
JSCOPE THIS TEST 



;**•*••*••**•*»*••**••>*•••* TEST 6 *»»**»»**»»»»*#*»♦»»•»»»••* 

;*CROM TEST OF JUMPCI) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
| "PERFORM THE JUMP INSTRUCTION 

J»VERIFY THE JUMP B< READING THE CONTENTS OF THE NEW ROM PC 

; : »••••*•»••••*••#•••••••*••**••*•••*•»••»*••**•••••*•*»*•••«•« 

; TEST 6 



MOV 
HOV 
MOV 

MSTCLR 
BIT 
BNE 
JSR 



#6,TSTN0 

#TST7,NEXT 

*i$,LOCK 



KBITlS, STATt 
bS + 2 

PC,MAPCK 



ROMCLK 
100400 
ROMCLK 

1143771<400»I> 



PC, ROMDAT 



R5,R4 
2E 



JSR 

3776 

CMP 

BEQ 

HLT 

SCOPl 

MOY 



ROMCLK 
100403 
ROMCLK 

100000!<400*1> 
JSR 


C-.P 
BEQ 
HLT 
SCOPl 

HOV 

KOMCLK 
1U.M06 



PC, ROMDAT 
R5,R4 



;R1 CONTAINS BASE D«CU AUDKESS 
; MASTER CLEAR DMCll 
;IS IT CRAM? 
;SKIP TEST IF YES 
;CHECK FOR Ml OR LO 

; NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 
f START AT ROM PC»0 

; NEXi WORU IS INSTRUCTION, KOMCLK PC=5304 
;JUMP TO ROM PC OK 1777 

;R5«EXPECTED ROM DATA, R 4= AC f UAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
; BR IF YES 

; ERROR, CROM PC IS WRONG 
jLOOP TO IS IF Sww9si 
;NEW SCOPl 



; NEXT WORO IS INSTRUCTION, ROMCLK PC»5304 
; STAkT AT KUK PCs3 

; NEXT wOPU 15 INSTRUCTION, hUMCLK PC=53»4 
;JUMP TO ROM PC OH 



»R5*EXPECTEU ROM DATA , R4=ACTUAL HUM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRtCT? 
; BR IF YES 

; ERROR, CKOM PC IS WRUNG 
;LOOP TO i$ IF SWH9M 
;NEW SCOPl 

(NEXT WOHU IS 1NSTPUCTIUN, HOMCLK PC = S3i-"£ 
; SI ART hi POM PC = 6 
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19 41 


»)23712 


1 ^4414 




1912 


023 7 1 1 


1 04525 




194 3 


fc'23 7 1 6 


004737 


026750 




r>23722 


fcJJl 252 




1945 


&2 3724 


023504 




1 946 


^23726 


£101 401 




19 4 7 


1*237 3y 


1 04006 




! 948 


,173732 


1 044B1 




1949 


(323734 


1 P4400 




195k) 








1 951 








1 952 








■953 








1 954 








1955 








1 95b 








1 957 








1 958 








1959 








1 960 


023736 


al 2737 


000007 


1 96 1 


(523744 


01 2737 


($241 32 


1 962 


£>237S2 


ill 2737 


023776 










1964 


023760 


104412 




1965 


4. 2 376 2 


032737 


1 '40000 


1966 








1 967 


023772 


0k>47 37 


H27 




£23776 






1 ^69 


323776 


C-04737 


026724 


1970 


S524P02 


1 0441 4 




1971 


P24004 


1 W0400 




1 972 


t'24006 


1 44414 




1973 


t'2 40 1 


1 15377 




1974 


£24012 


304737 


026750 


1975 


124016 


(503776 




1 976 


J? 4020 


02S3504 




1977 


324022 


Q01 




1978 


024024 


1 04006 




1979 


i/24026 


1 04401 




1980 


024030 


01 2737 


024036 


1961 


tf24036 






196 2 


£24i*36 


K-94737 


026724 




B24S42 


1 b44i 4 




1964 


02404 4 


1 c>0403 




1 985 


>>74H46 


1 1)441 4 




1986 


*>2 4 tf<50 


1 P 1 000 




1987 


C24k)52 


004737 


026750 


1968 


U24056 


040000 




1989 


1*24060 


020504 




1990 


074H62 


001401 




1991 


t>24t>64 


144006 




1992 


t24066 


104401 




1993 


024070 


&12737 


024076 


1994 


£24076 






1995 


S124.J76 


&»4737 


026724 


1996 


524102 


104414 





ROMCLK 

104125i<400»l> 



2$: 
3$: 



4$: 
5$: 



JSR 

1252 

CMP 

bEQ 

HLT 

SC0P1 

SCOPE 



PC, ROMDAT 

R5.R4 

6$ 

6 



;N£XT HORU IS INSTRUCTION, ROMCLK PC«5304. 
;JUMP TO ROM PC OF S25 

;R5=EXPECTEL> ROM DATA, R4s ACTUAL ROM DATA 
; INDEX 

j ARE NEW ROM PC CONTENTS CORRECT? 
;6R IF YES 

f ERPORf CROM PC IS WRONG 
jLOOP TO 5S IF SW59=1 
; SCOPE THIS TEST 



•**•••••••*•»*•»•»*»***•**•• TEST 7 *•«***•*••*•****»»•#**•••** 

}*CROM TEST Or JUKP(I) On C BIX SET MICRO-PROCESSOR INSTRUCTION. 

;*SET THE C BIT, PERFORM THE JUMP INSTRUCTION, 

; 'VERIFY THE JUMP BY READING THE CONTENTS Of THE MEM ROM PC 

; : •••*•**•••••••••••»*••*••*•**•••*»••••••*•••••••*•••••••••••• 

> TEST 7 



#7,TSTN0 
ltST10,NEXT 
«l*rl>OCK 



IBITlSf STAT1 
6S+2 

PC,MAPCK 



; 

MOV 
MOV 
MOV 

MSTCLR 
BIT 
BNE 
JSR 

JSR 
ROMCLK 
100400 
ROMCLK 

114377l<400*2> 

JSR 
3776 
CMp 
BEQ 
HIiT 
SC0P1 
MOV 



;R1 CONTAINS BASE DMCll ADDRESS 

(MASTER CLEAR DMCll 

;IS IT CRAM 7 

; SKIP TEST IF YES 

;CHKCK FOR HI OR LO 



PCfSETC ;SET THE C BIT' 

' ; NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
: START AT ROM PC=0 

;NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
;JUMP TO ROM PC OF 1777 

;R5=EXPECTED ROM DATA, R4=ACTUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

; ERROR, CROM PC IS WRONG 
•LOOP TO 1$ IF SW09=1 
;NEW SC0P1 



PC, ROMDAT 

R5,R4 , 
2S 
6 



#3$, LOCK 
JSR PC#SETC ;SET THE C BIT' 

ROMCLK ;SEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

100403 ; START AT ROM PC=3 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC*S304 

1 00000 i<400*2> jJUMP TO ROM PC OF 



JSP 


CMP 

BEQ 

HLT 

SC0P1 

MOV 



PC, ROMDAT 



R5,R4 

4$ 



*5«,L0CK 



JR5=EXPECTED ROM DATA, R4-ACTUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
jBK IF YES 

(ERROR, CROM PC IS WRONG 
;L0OP TO i% IF SW09=1 
;NEW SC0P1 



JSR PCfSETC ;SET THE C BIT* 

ROMCLK ; NEXT WORD IS INSTRUCTION, 



ROMCLK PCx5304 
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1997 


U24124 


1H0406 








100406 




; START AT ROM PC=6 


1998 


«24106 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION , ROMCLK PC>5304 


1999 


t-24110 


105125 








104125i<400*2> 


;JUMP TO ROM PC OF 525 


21*00 


£24112 


0*4737 


026750 






JSR 


PCROMDAT 


;R5=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


2»*t,i 


',•24116 


i>M252 








1252 




; INDEX 


2H02 


} 24120 


P20504 








CMP 


R5.R4 


f ARE NEW ROM PC CONTENTS CORRECT? 


2u03 


t'24122 


i>01401 








BEQ 


6$ 


;BR IF YES 


200 4 


C24124 


1 u4006 








HLT 


6 


; ERROR, CROM PC IS WRONG 


2(?J5 


1*24126 


144401 






6$: 


5C0P1 




;LOOP TO 5$ IF SW59=1 


2i3i)6 


U24130 


«>>4400 








SCOPE 




fSCOPE THIS TEST 


2007 


















2KB 9 


















2Ht*9 












;•••••••»••••»•*••»•••**•••• TEST 10 **»*«**♦»»*»»♦***»*»#»*••*» 


2010 












;»CROM 


TEST OF JUMPCI) ON Z BIT SET MICRO-PROCESSuR INSTRUCTION. 


2H1 1 












j*SET THE Z BIT, PERFORM THE JUMp INSTRUCTION, 


2412 












••VERIFY THE JUMP BY 


READING THE CONTENTS OF THE NEW ROM PC 


2013 
2014 












• :••#•*•*••••••*•«••»••»**•*•••••»*•*»•••***•••••#•••*•*•••**••* 


2015 












t TEST 


10 




2H16 


















2*17 


C24132 


C12737 


<?0Ui310 


001226 


TST10 : 


MOV 


»10»TSTNO 




2tol8 


SJ2414:? 


2S2737 


324326 


00121b 




MOV 


1 TST1 i , NEXT 




2WI9 


.J2414S 


(12737 


024172 


001220 




MOV 


#1$,L0CK 




2020 
















;R1 CONTAINS BASE DMCll ADDRESS 


2k.il 


024154 


104412 








MSTCLR 




J MASTER CLEAR DMCll 


2C22 


1)24156 


032737 




001366 




BIT 


#BIT15, STAT1 


;IS IT CHAM? 


2023 


!*24161 


001057 








BNE 


6S+2 


;SKIP TEST Li YES 


2U24 


024166 


Uf4737 


027012 






JSR 


PC,HAPCK 


jCHECK FOR HI OR LO 


2"23 


024172 








IS: 








2026 


"24172 


Ui)4737 


026742 






JSR 


PC.SETZ ;SET 


THE Z BIT' 


20?? 


**?4176 


1 04414 








ROMCLK 


jnext word is instruction, homClk PCK5304 


2W?B 


t»2420P 


1 J4400 








100400 




; START AT ROM PC=0 


2029 


U24222 


1 d4414 








ROMCLK 




{NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2030 


02420; 


1 15777 








1143771<400»3> 


jJUMP TO ROM PC OF 1777 


2031 


224206 


P04737 


026750 






JSR 


PC, ROMDAT 


;R5=EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


21*32 


S'24212 


►5153776 








3776 




JINDEX 


21*33 


t>24214 


ll. 78504 








CMP 


RS.R4 


sARfc NEW PC CONTENTS CORRECT? 


2iu 34 


f»Z4216 


6^1401 








BEQ 


2S 


f BR IF YES 


2^35 


024223 


1<)4006 








HLT 


6 


; ERROR, CROM PC IS WRONG 


2036 


024222 


1 »4401 






2$: 


SC0P1 




• LOOP TO 1$ IF SW09M 


2037 


V24224 


1/12737 


U24232 


0*12 20 




MOV 


*3S,L0CK 


;NEW SC0P1 


2038 


024232 








3S: 






7P!39 


B24232 


H54737 


"26742 






JSR 


PCfSETZ ;SET 


THE Z BIT* 


2u40 


t24236 


104414 








ROMCLK 




;NEX1 WORD iS INSTRUCTION, ROMCLK PC=b304 


2041 


i'74240 


1 HS403 








100403 




; START AT RUM PC«3 


2042 


A24242 


1 i<441 4 








ROMCLK 




• NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


2043 


i.24244 


14140J 








I00000i<400*3> ;JUMP 10 ROM PC OF <6 


2t?44 


124246 


DW4/37 


026750 






JSR 


PC, ROMDAT 


;R5 = EXPEC'IEU ROM DATA, R4xACTUAL ROM DATA 


21*45 


B24252 


3000<40 













;INDEX 


2fc46 


1/24254 


S26504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


?B47 


12425& 


Wf-l 








btu 


4S 


; BR IF YES 


2u4B 


<i.2426a 


1.'4006 








HLT 


6 


; ERROR, CROM PC IS WRONG 


2t?49 


«J24262 


Ii>44/1 






4S: 


SC0P1 




;LOOP TO 3S IF SW09=l 


2C5*S 


124264 


■'12737 


1124272 


m*122tf 




MOV 


«5S,L0CK 


;NE* 5C0P1 


2!<51 


L.7427 2 








5S: 








2MS2 


k.21272 


( i«4 7 37 


(12674? 






JSR 


RC5ETZ ;SET 


THE Z BIT' 
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104414 








ROMCLK 




J NtXT wURP IS 1 NSTHUC T 1 UN p KOMCLK PC5304 




02 4 300 


1 00406 








100406 




f STAR'l AT ROM PC = 6 


2^55 


b2 4 302 


1 1}4 4 1 4 








ROMCLK 




•next wobd is instruction? komclk pc*s304 




1)24 30 4 


1 055 25 








104125l<400«3> 


■ .7 HMD Tfl unti nr AP k<)C 


2fc57 


^2 4 306 




026 * 30 






JSR 


PC, ROMDAT 




2058 


£24 312 


1252 








1252 






2l»b2 




020504 








CMp 


R5,R4 


; ARE NEW ROM PC CONTENTS CORRECT? 




ft»24 316 


0fr I 401 








BEQ 


6$ 


;BR IF YES 


2*96 1 


fci24 3 2f 


1 04 006 








HLT 


6 ^ 


; ERROR, CROM PC IS WRONG 


2062 


ii2 4 322 


1 0440 1 






6s : 


SC0P1 




[LOOP TO 5$ IF SN59=1 


2063 


074324 


104400 








SCOPE 




•SCOPE THIS TEST 


2t)64 


















2065 


















2066 












;•••»«•»••«••*••*•«******••* TEST 11 »«»#•*♦»#»»*»**•»»#»■»*»**** 














)*CROM 


TEST OF JUMPCI) 


ON BR0 SET MICRO-PROCESSOR INSTRUCTION. 














;*SET THE BR0 BIT, PERFORM THE JUMP INSTRUCTION , 


T Q 












(♦VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROB PC 


207 1 












j :*»»»*»»»*»#»»*♦»#»»*»»#»*»*»»•»#•*•#•»»*»»*»»•»•»**»»**#»*•»»» 


2072 












( TEST 


11 




20 7 3 


















20 74 


4*24 ) 26 


012737 


VkPiCAlA 1 1 
WVKJV 1 1 


001 226 


TSTl 1 1 


MOV 


#U,TSTN0 




20 ?5 


fci24 334 


61 2737 








MOV 


»TST12,NEXT 






P24342 


C 1 2 7 3 7 


024366 


00 1220 




MOV 


11$, LOCK 




207 7 
















;R1 CONTAINS BASE DMC11 ADDRESS 




£24350 


1 441 2 








MSTCLR 




{MASTER CLEAR DMCll 


2079 


fc>24 152 


0327 37 


1 00000 


001 366 




BIT 


»BIT15,STAT1 


[IS IT CRAM? 




©24 360 


001 057 








BNE 


6» + 2 


[SKIP TEST IF YES 


2081 




004737 


02701 2 






JSR 


PC.MAPCK 


[CHECK FOR Hi OR LO 


2032 


#24366 














2 w j 


£24 366 


t'04737 


026674 






JSR 


PC9ETBR0 


; SET THE BR0 BIT* 




C74 372 










ROMCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK PC=b304 


2085 




1 00400 








100400 




; START AT ROM PC=0 




024 376 


1 <J 4 4 1 4 








ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PCB5304 




Iff £ * *t 10 1* 










114377!<400*4> 


(JUMP TO ROM PC OF i 777 






'"04737 


H *5 Ft *7 R (X 






JSR 


PC, ROMDAT 


[R5=EXPECtED ROM DATA, R4= ACTUAL ROM DATA 


, „„ 




i)03 * 7 1> 








3776 




i Index 




£2 44 1 3 


1 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


2 91 












BEQ 


2$ 


[BR IF YES 


2 92 


J* 2 4 414 


1)4006 








HLT 


6 


[ERROR, CROM PC IS WRONG 


2*'93 




i w *t *t io i 








SC0P1 




[LOOP TO 1$ IF SW09«1 


94 




&12737 








MOV 


#3S,L0CK 


;NEW SCOPl 


2095 


















2096 


2 44 26 


004737 


026674 






JSR 


PC, SETBR0 


(SET THE BR0 BIT* 


2097 


#24432 


1 J44 1 4 








ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK PCxS304 






1 0040 3 








100403 




; START AT ROM PC=3 




024436 


! MOM *M 








ROMCLK 




; NEXT WORD IS INSTRUCTION, KOMCLK PCst5304 


21 


02 4 440 


J 02000 








100000l<400«4> ;JUMP 


TO ROM PC OF ii 


2 1 »*l 


t>24 442 


t**47 37 


026750 






JSR 


PC, ROMDAT 


»R5»EXPECTED ROM DATA, R4*ACTUAL ROM DATA 


21 <<2 


t*24146 


000000 













; INDEX 


21iM 


"u2445^ 


029504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


2104 


ki24452 


£5*1401 








BEQ 


4S 


; BR IF YES 


21*5 


024454 


104006 








HLT 


6 


; ERROR, CROM PC IS WRONG 


21w6 


1,24456 


104401 






4$: 


SC0P1 




;LOOP TO 38 IF SW09=1 


2107 


f 24460 


012737 


024466 


001220 




MOV 


#5$, LOCK 


;NEW SCOPl 


210t> 


k>24466 








SSI 
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-APR-77 


2129 


'.'24 466 


b 14737 


2110 


£24472 


10441 4 


2111 


C74471 


1 00406 


2112 


024476 


104414 


211 3 


1,24500 


106125 


2114 


1:24502 


S>84737 


2115 


W24506 


b»l252 


2116 


024510 


'420504 


2117 


«24512 


041401 


2118 


024514 


104006 


2119 


C24516 


104401 


2120 


1124520 


104400 


2121 






llil 






2123 






2124 






2125 






2126 






2127 






2128 






2129 






213.) 






2131 


4,24522 


D12737 


2132 


K24530 


B12737 


2133 


124536 


B12737 


2134 






2135 


t'24544 


104412 


2136 


f 24546 


B32737 


213 7 


1/24554 


001057 


2138 


»>24556 


004737 


2139 


02*562 




2ND 


f>?»*>62 


0»4737 


2111 


074566 


1>;4414 


2142 


B2457J 


1 ^0400 


2143 


1,24572 


104414 


2144 


024574 


116777 


2145 


1245 76 


004737 


2146 


U24602 


HB3776 


2147 


024604 


023504 


21 48 


024606 


001 401 


2149 


02461D 


104006 


2150 


124612 


104401 


2151 


<i2»6l4 


B12737 


2152 


L'24622 




2153 


U2462? 


«;»i4737 


2154 


U24626 


104414 


2155 


024630 


100403 


215b 


'J24632 


104414 


2157 


K24634 


102440 


2158 


U7463t> 


©14737 


715J 


024642 


fc*0tf 00 


2)00 


074644 


i 2J5 04 


2)61 


*?4b 16 


l',Jl 401 


2162 


i- 24653 


1 H4006 


2161 


U74S52 


1 <!1401 


2! 64 


.24654 


1 2 7 3 7 
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000012 001226 
024716 001216 
024562 001220 



100000 001366 



024622 00122W 



25: 
3$; 



JSR 
ROMCLK 
100406 
ROMCLK 

104125i<400«4> 

JSR 
1252 
CMP 
BEQ 
HLT 
SCOPl 
SCOPE 



PC,SETBR0 



PC, ROMDAT 
R5,R4 



;SET THE BR0 BIT" 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; START AT ROM Pc=6 

; NEXT WORD IS INSTRUCTION, ROMCLK PO5304 
;JUMP TO ROM PC OF 525 

;R5*EXPECTED ROM DATA, R4=ACTUAL ROM DATA 
? INDEX 

(ARE NEW ROM PC CONTENTS CORRECT? 
; BR IF YES " " 

; ERROR, CROM PC IS WRONG 
;LOOP 10 5$ IF SWS9sl 
. SCOPE THIS TEST 



;••»*••••»•»**»»#»••*•»**••* TEST 12 ••••••*•*•*•#••*•••••••*•*• 

>*CR0M TEST Or JUMPCI) ON BR1 SET MiCRO-ppOCESSOR INSTRUCTION. 

>*SET THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 

[•VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

}:*#»#»»»»»»•»*»#»»»•#»*»#»»»»»•»»##*»»*»»««*»#«•»*»»#••##»»•»♦* 

1 TEST 12 



, ... 

MOV 
MOV 
HOV 

HSTCLR 
BIT 
BNE 
JSR 



#12,TSTN0 
•TST13,NEXT 
IIS, LOCK 



#BIT15,STAIi 
6« + 2 

PC,MAPCK 



JSR 


PC.SETBR1 


ROMCLK 




100400 




KOMCLK 




114377i<400»5> 


JSR 


PC, ROMDAT 


3776 




CMP 


R5,R4 


BEQ 


28 


HLT 


6 


SCOPl 




MOV 


•3$, LOCK 


JSR 


PCSETBR1 



;R1 CONTAINS BASE DMCll ADDRESS 
; MASTER CLEAR DMCll 
;IS IT CRAM? 
;SKIP TEST IF YES 
;CHECK FOR HI OP LO 

•SET THE BR1 BIT* 

(NEXT WORD IS INSTRUCTION, ROMCLK PCab304 
; START AT RUM PCs0 

; NEXT WORD IS INSTRUCTION, ROMCLK PC»S304 
; JUMP TO ROM PC OF 1777 

;R5b£XPECTED ROM DATA, R4s ACTUAL ROM DATA 
( INDEX 

;ARE NEW PC CONTENTS CORRECT? 
(BR IF YES 

(ERROR, CROM PC IS MRONG 
(LOOP TO 1$ IF SW09*1 
[ NEW SCOPl 



(SET THE bRl BIT" 

(NEXT WORU IS INSTRUCTION, KOMCLK PCn5304 
(START AT ROM PC*3 

{ NEXT *ORD IS INSTRUCTION, KOMCLK PC=5304 
(JUMP TO ROM PC OH 



*. 74662 fc«1220 



ROMCLK 
100403 
ROMCLK 

100000 !<400»5> 

JSH PC, ROMDAT (R5«EXPECtEU ROM DATA, R4> ACTUAL ROM DATA 

(INDEX 

CMP R5,R4 (ARE NEW PC CONTENTS CORRECT? 

BED 48 (BR IF IES 

HL1 b ( ERROR, CROM PC IS WRONG 

SCOPl (LOOP TO j$ IF SW09=1 

MOV 15$, LOCK (NEW SCOPl 
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2165 


L74662 






2166 


024662 


004737 


026702 


2167 


£24666 


104414 




2166 


£24670 


100406 




2169 


£24672 


184414 




2170 


L24674 


1 106525 




2171 


1-24676 


0047 37 


026750 


21 72 


B24702 


001252 




71 ?3 


ii24704 


2S2B504 




2174 


174736 


e»i40i 




2175 


|;24710 


104006 




2176 


B24712 


104401 






B24714 


1 4403 




2178 








2179 








2180 








2181 








2182 








2183 








2184 








2185 








2186 








2187 








2188 


i>24716 


012737 


000013 


2189 


024724 


£12737 


025112 


2190 


124732 


012737 


024756 


2191 








2192 


1*24740 


104412 




2193 


U24742 


P32737 


100000 


2194 


«;24750 


001057 




2195 


T24752 


004737 


027012 


2196 


B24756 






2197 


624756 


004737 


026710 


2198 


K24762 


104414 




2199 


1*24764 


100400 




2200 


£24766 


104414 




2ii>l 


P24770 


117377 




7262 


£24772 


00473? 


026750 


27*1 


P24776 


903776 




2204 


D25000 


020504 




2205 


C25002 


001401 




2206 


025004 


104006 




22637 


025006 


104401 




2208 


C25010 


012737 


025016 


7209 


B25016 






2214 


P25016 


£04737 


026710 


2211 


Sv25022 


104414 




2712 


1,25024 


1 ','0403 




2213 


025026 


1.J4414 




221 4 


025030 


1 03000 




2215 


b25032 


W47 37 


026750 


221b 


4>25036 


200000 




221 1 


&2S040 


020504 




2218 


025042 


3d 401 




771* 


U25044 


1 04006 




7726 


025046 


104401 





001216 
001220 



2$: 
3«: 



JSR PCSETBR1 

ROMCLK 

100406 

RCMCLK 

104125i<400*5> 



JSR 

1252 

CS? 

BEQ 

HLT 

SC0P1 

SCOPE 



PCROMDAT 

R5,R4 

6$ 

6 



SET THE BR1 BIT* 

NEXT HOBO IS INSTRUCTION , KOMCLK PC«5304 
START AT ROM PC»6 

NEXT WORD IS INSTRUCTION, KOMCLK PC35304 
JUMP TO ROM PC OK 525 

R5=EXPECTED BOH DATA, R4=ACTUAL ROM DATA 

INDEX 

ARE NEW ROM PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5$ IF SW59-1 

SCOPE THiS TEST 



;•*»••*••••••••••••••«•***•• TEST 13 »»#»*#»»**#»♦#*#♦»***#»»*»« 

J*CROK TEST OF JUHPCI) ON BR4 SET MICRO-PROCESSOR INSTRUCTION. 

i*SET THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 

J*VERIFY THE JUMP B If 'READING THE CONTENTS OF THE HEM ROM PC 

; 2 **##**♦*»»**»#»•♦**•#♦**#**####*♦**»*#*»*»*♦#«»»♦*«»***«»»#»*» 



; TEST 13 

; -- 

MOV 
NOV 
MOV 



#13,TSTN0 
#TST14,NEXT 
*1S,L0CK 



MSTCIiR 
BIT 
BNE 
JSR 



#BIT15,STAT1 

6S+2 

PC,MAPW 

PCSETBR4 



JSR 
ROMCLK 
100400 
ROMCLK 
114377i<400*6> 



JSR 

3776 

CMp 

BEQ 

HliT 

SCCPi 

HOV 



PCROMDAT 

R5,R4 

2$ 

6 

#38, LOCH 
PC, SETBR4 



;R1 CONTAINS BASE DMCU ADDRESS 
; MASTER CLEAR DMC11 
;IS IT CRAM? 
;SKIP TEST IF YES 
; CHECK FOR Hi OR LO 

;SET THE BR4 BIT' 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; START AT RUM PC»0 " 
; NEXT WORD XS INSTRUCTION, KOMCLK PC=b304 
•JUMP TO ROM PC OF i?77 

jR5=EXpECT£D ROM DATA, R4*ACTUAL ROM DATA 
; INDEX 

:AR£ NEW PC CONTENTS CORRECT? 
;BR" IF IfES 

; ERROR, CRO« pC IS WRONG 
;LOGp TO ii IF SW09=1 
;NEH SCOPl 



JSR PC, SETBR4 ;SET ThE 0R4 BIT' 

ROMCLK ;NEXI WORD lS INSTRUCTION, KOMCLK PCb5304 

100403 ; START AT ROM PC*3 

ROMCLK ; NEXT WORD LS INSTRUCTION, ROMCLK PC=5304 

1 00000 J<400*6> ;JUMP TO ROM PC OF 



JSR 


CMP 
BEO 
HLT 
SCOPl 



PC,ROMDAT 



R5,R4 
4$ 



;R5*EXPECTED ROM DATA, R4=AC'IUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

; ERROR, CROM PC IS WRONG 
;L0OP TO 3$ IF SW09=1 
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12737 025056 001220 
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DZDMG. PU 22 


-APR-77 


2221 


1-25050 


012737 


2222 


925056 




2223 


025050 


?i*4737 


2*24 


l»2506 2 


104414 


2225 


K 25064 


100406 


2226 


825066 


104414 


iii'l 


&2S070 


107125 


2223 


1/75C72 


004737 


2229 


I 75076 


£1*1252 


2230 


t25100 


U20504 


2231 


••25102 


B01401 


2232 


1,25104 


104006 


2233 


125106 


1 04401 


2234 


(■25110 


1*4400 


2235 






2236 






2237 






2238 






2239 






2240 






2241 






2242 






22 43 






2244 






2245 


1251 12 


112737 


2246 


1-25120 


212737 


2247 


f 25126 


012737 


2248 






2249 


K25134 


104412 


2250 


C25136 


032737 


2751 


025144 


£01057 


2252 


025146 


004/37 


225 3 


025152 




2254 


P25152 


'a04737 


2255 


Vr25156 


1 3441 4 


2256 


025160 


1 02400 


2257 


025162 


1 K441 4 








2759 


T25166 


004737 


2260 


025172 


013776 


2261 


025174 


s; 20504 


2262 


f>25176 


0*1401 


2263 


P25200 


1 04006 


22b4 


f75202 


If 1401 


2265 


225204 


P12737 


7266 


*>2521 7 




22*7 


t 75212 


f 04737 


2ibB 


125216 


1 0441 4 


2269 


12522V 


1 00403 


2270 


025222 


1U4414 


27 71 


(25224 


103400 


2272 


1-25226 


6,^4737 


2273 


i 25232 


;V 


2274 


1:25231 


020504 


7275 


'.125 2 36 


<r«»i 'Mi 


22 76 


i 25 7 40 


1 0*0tfb 



000014 001226 
b25306 00121S 
025152 fc01220 



100000 001 J b 6 



025212 001220 



2$: 
3S: 



MOV 



#5$, LOCK 



;NEW SCOPl 



JSR PCSETE 

ROMCLK 

100406 

ROMCLK 

104125l<400*6> 



JSR 

1252 

CMP 

BEQ 

HLT 

SCOPl 

SCOPE 



PCROMDAT 



R5,R4 
6$ 



SET THE BR4 BIT* 

NEXT WORD lS INSTRUCTION, KOMCLK PC*5304 
START AT ROM PC=6 

NEXT WORD IS INSTRUCTION. KOMCLK PC=5304 
JUMP TO ROM PC OF 525 

R5=EXPECi'ED ROM DATA, R4= ACTUAL ROM DATA 
INDEX 

Are new rom pc contents correct? 

BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5$ IF SW59=1 
SCOPE THIS TEST 



;•»*••*•*«*••*•*•*••«*•*••*• TEST 14 *•****••••*»••*••***••••«•• 

J*CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 

;»SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

;»VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

j :###***»*#»*»#•»**»*»#*»*##»#*»»*#***•#♦*»»»»»»»***#»•**»#»•»*»* 

; TEST 14 



MOV 
MOV 
HOV 

MSTCLR 
BIT 
BNE 
JSR 



»14,TSTN0 

*TST15,NEXI 

>1S,L0CK 



IBIT15,STAT1 

63*2 

PCMAPCK 

PCSETBR7 



JSR 

ROMCLK 
100400 
ROMCLK 

114J77i<400«7> 



JSR 

3776 

C«P 

BEQ 

HLT 

SCOPl 

MOV 



PCROMDAT 



R5,P4 
2$ 



13$, LOCK 



JSR PCSETE 

ROMCLK 

100403 

ROMCLK 

100000l<400«7> 



Rl CONTAINS BASE DMCU ADDRESS 
MASTER CLEAR DMCU 
IS IT CHAM? 
SKIP TEST If YES 
CHECK FOR HI OR LO 

SET THE BR/ BIT' 

NEXT WORD iS 1NS1FUCTI0N, ROMCLK PC=5304 
START AT ROM PCx0 

NEXT WORD IS INSTRUCTION, ROMCLK PC=53«4 
JUMP TO ROM PC OF 17 77 

R5»EXPECTEU ROM D ATA ,P4r ACTUAL ROM DATA 
INDEX 

ARE NEW PC C0NTEN15 CORKt-CT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO IS IF SW09=1 
NEW SCOPl 



JSR 


BEu 
HLT 



PCROMDAT 



R5.R4 

48 



[SET THt BR/ BIT' 

;next word is instruction, romClk pc=5304 

; START AT ROk PC=3 

; NEXT WORD iS INSTRUCTION, KOMCLK PC=b304 
; JUMP TO ROM PC 



;R5=EXPECTEu ROM DATA, R4=AClUAL ROM DATA 
jINDfcX 

; ARE NEW PC CONTENTS CORKtC'l? 
; BR IF YES 

; ERROR, CROM PC IS hKONG 
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r 7^74 4 






2778 




Kl 2737 


025252 


i >779 


* ., 

^7^7^7 










_ 


1126716 


2201 




144414 




2282 


•!»25260 


1 00 4 06 




2 ? 84 


1325 2b 2 


104414 












77rtS 






__ 
026 750 


77»ft 




*>0 1252 




I 




92050 4 






fe25276 


£ ■ <fi 1 401 






k)25 3w" 


t 04006 




2294 




10 4401 




779 


(ITS m« 






2292 








2293 








2 291 








2 295 
















2297 








77^9 
































23t'2 








2303 


25 306 


W 1 27 37 


0000 1 5 


2304 


'!« ll \ 


^1 77*7 


025502 






I- 


025346 


2306 








2 3^)7 


'25333 






2 3^8 




032737 


1 00000 






£414 !aC7 
VxJ 1 03 1 




2310 


25342 


004737 




2311 


025346 






2 312 


1.253 46 


t'04737 


026656 


2313 


025352 


1 '4441 4 




2314 


25354 


1 00400 




2315 


£25356 






2316 


025360 


115 377 










L«7K 7 1 * H 
0<O r Ply 


2318 


£25366 


00000 A 




2319 


C2537P 


f20504 




23 20 


P25372 


00 1401 




2 321 


C*2537 4 


1 04006 








Vf 57^7 




232 3 


#}25 40fr 




025406 










2325 


1,25406 


P04737 


026656 


2326 


025412 


1 04414 




2327 


S»25414 


100403 




2 328 


E.25416 


104414 




2329 


1.25 4 20 


101000 




233m 


1 25122 


IW47 37 


026750 


2331 


U25 426 


000010 




2332 


L>25 4 30 


L20504 





4$: 
5SI 



001226 
001216 



2S: 

3$: 



SC0P1 

MOV I5I/LOCK 

JSP PCSETBR7 

ROMCLK 

100406 

ROMCLK 

104125l<400*7> 



JSR 

1252 

CMP 

BEQ 

HLT 

SC0P1 

SCOPE 



PC.ROMDAT 



R5,R4 
6S 



•LOOP 10 3$ IF SW09=1 ., • 

; NEM SCOPl 

JSET THE BR7 BIT' 
NEXT WORD IS INSTRUCTION, KOHClK PC«5304 
START AT ROM PC = 6 

NEXT WORD IS INSTRUCTION, KOHCLK PC«5304 
JUMP TO ROM PC OF 525 

R5*EXPECTE0 ROM DATA, R4=ACTUAL ROM DATA 
INDEX 

ARE NEW ROM PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5S IF SW59»l 
SCOPE THIS TEST 



;»•*•*•••••*•*••••••••»**••* TEST 15 **••*••*••••••••••••*•*••*• 

;»CROM TEST OF JUMPCI) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 

J»CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

(•VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

;«THE CONTENTS OF THE NEW ROM PC (IT SHOULD INCREMENT BY ONE), 

; :»•»»••**•••«**»****»•*»•»•»»•**•»•*••*•*•••»•*••**••••••*••*•* 

; TEST 15 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BNE 
JSR 



I15.TSTN0 
•TST16,NEXT 
1 1$, LOCK. 



»Bin5,STATl 
6S+2 

PC,MAPCK 
POCLRALL 



JSR 
ROMCLK 
100400 
ROMCLK 
114377l<400*2> 



JSR 
2 

CMP 

BEQ 

HLT 

SCOPl 

MOV 



PC,ROMDAT 

R5,R4 
2$ 

6 



;R1 CONTAINS BASE DMCll ADDRESS 
; MASTER CLEAR DMCll 
;IS IT CRAM; 
;SKIP TEST IF YES 
;CHECK FOR til OR LO 

JCLEAP ALL CONDITIONS 

jnext word is instruction, romClk PCB&304 

; START AT ROM PC«0 

;NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
;JUMP TO ROM PC OF 1777 

;R5=£XPECTED ROM DATA, R4=ACTUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

{ERROR, CROM PC IS NRONG 
; LOOP TO It IF SW09=1 
;NEW SCOPi 



JSR PCrCLRALL ; CLEAR ALL CONDITIONS 

ROMCLK JHEXT WORD IS INSTRUCTION, KOHCLK PC«5304 

100403 ; START AT ROM PC =3 

ROMCLK ; NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
1000001<400»2> ;JUMP TO ROM PC OF 

JSR PC,ROMDAT ;R5=EXPECTED ROM DATA, R4s ACTUAL ROM DATA 

10 ; INDEX 

CMP R5,R4 ; ARE NEW PC CONTENTS CORRECT? 
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2 3 3 3 


£25432 


B«)1401 




2334 


*25434 


104006 




2335 


t 2543i 


104401 




2336 


H25143 


812737 


025446 


2337 


025446 






2 3 38 


125446 


JV4737 


026656 


2339 


^25452 


1 04414 




2340 


025454 


1 J0406 




2311 


225456 


1 34414 




2312 


k<25460 


1*35125 




2343 


U25462 


J04737 


026750 


2344 


?25466 


2»>0«»16 




2 3 45 


"25 470 


020504 




2 345 


k,/547z 


£vU40i 




2347 


t25474 


1 04006 




2348 


W25476 


104401 




2349 


02550? 


1,14400 




2350 








2351 








2352 








2353 








2354 








2355 








2356 








2357 








2 358 








2359 








2360 








2361 


1)25502 


012737 


000016 


2362 


1,25514 


012737 


025676 


2363 


L25516 


P12737 


025542 


2364 








2365 


'-25524 


11)4412 




2366 


F25526 


(532737 


1W0M00 


2367 


U255 31 


001057 




2368 


4,25536 


<>»4737 


027012 


2369 


1,25542 






2370 


L25542 


0J4737 


026b56 


237 1 


<'25346 


104414 




2372 


k2555» 


140400 




2373 


U25552 


1^4414 




2374 


025551 


1 15 m 




23 75 


I 25556 


<;<)4 7 37 


026750 


2376 


P2556Z 


M2002 




2377 


i: 2556 4 


<)28504 




2378 


T25566 


JO1401 




2 379 


12557^ 


1 1)4006 




2 )80 


(25572 


1 J4401 




2JP1 


U2557 4 


t/12737 


625602 


23o2 


^25602 






23H3 


W256.32 


'^*737 


r2bb5b 


7)84 


k,256et> 


1 <4ii * 




2 385 


07561ft 


1 3 




2386 


1-2561 2 


1 44414 




i 3»7 


^25t>l i 


1 <H 40? 




: iss 


/Shi & 


E/M7J7 


i'2b75D 
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4$: 
5$: 



2$: 
3s: 



BEQ 
HLT 
SCOPl 
MOV 



JSR PC.CLRA 

ROMCLK 

100406 

ROMCLK 

104125!<400»2> 



JSR 

16 

CMP 

bCu 

HLT 

SCOPl 

SCOPE 



PCROMDAT 

R5,R4 

6$ 
6 



; BR IF YES 

; ERROR, CROM PC IS WRONG 
JLOOP TO 3$ IF SW09=1 
; NEW SCOPl 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, KOHCLK PC=5304 
START AT ROM PC«b 

NEXT WORD IS INSTRUCTION, KOHCLK PCs5304 
JUMP 10 ROM PC OF 525 

R5*EXPECTE0 ROM DATA, R4=ACTUAL ROM DATA 
INDEX 

ARE NEW ROM PC CONTENTS CORRECT? 

BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5$ IF Sh59«l 
SCOPE THIS TEST 



;•••••••»»•••••••••*••**•*•* TEST 16 *••*>•*••***••»*•*••***••••• 

»»CROM TEST OF JUHpU) ON E BIT SET MICRO-PROCESSOR INSTRUCTION. 

} *CLEAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

} 'VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

;*THE CONTENTS OF THE NEW ROM PC ( IT SHOULD INCREMENT BY ONE) . 

; l **»#•*»»#»••»*»»•»»»*»*»»*»»#»*»»•»«*»»»»»#»»#»»•#••###'####»## 



; TEST 16 

) 

MOV 
MOV 
MOV 



#16,TSTN0 
ITST17,NEXT 
11$, LOCK 



MSTCLR 
BIT 
BNE 
JSR 



#BIT15,STATl 
61+2 

PCMAPCK 



;R1 CONTAINS BASE DMCll ADDRESS 
; MASTER CLEAR DMCll 
;IS IT CRAM? 
;SKIP TEST IF YES 
; CHECK FOR Hi OR LO 



JSR 

ROMCLK 
10040E* 
ROMCLK 
114377!<400»3> 



JSR 
2 

CMp 

BEQ 

hLT 

SCOPl 

MOV 



PC, ROMDAT 

R5,P4 
2$ 

6 

#3$, LOCK 



CLEAR ALL CONDITIONS 

NEXT WORD lS INSTRUCTION, KOMClK PC«5304 
START AT ROM PC«0 

NEXT WORU IS INSTRUCTION, ROMCLK PO5304 
JUMP TO ROM PC OF 1777 

RSs&XPECTfcU ROM DATA, R4=AC XUAL ROM DATA 
INDEX 

ARE NEW PC CONTENTS CORKLCT? 
BR IF YES 

ERROR, CKOK PC IS WRONG 
LOOP TO IS IF SW09M 
NEW SCOPi 



JSR PCCLRALL ; CLEAR ALL C0NU1TIUNS 

HOflCLK JNF.XT WORU IS INSTRUCTION, HOMCLK PC = 5304 

1<!0403 ;S1AHT AT RUM PC = 3 

ROMCLK ;NEX1 «ORli IS INSTRUCTION, KOMCLK PC = 53w4 

10i^^001<400»3> ;JU»P 10 ROM PC 0* 

JSK PCBOMKAT jR5«EX»>tCTtU R0» D AT A , R4 = AC I UAL ROM DA' \ 
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PAGE: 0256 



2369 


025622 


fc,00010 




239.» 


£-25624 


320504 




2391 


,.25626 


i-01401 




2392 


t 25630 


104006 




2393 


t 25632 


144401 




2394 


125634 


»! 2737 


025642 


2395 


P25642 






2396 


£25642 


P.S4737 


026656 


2397 


*<25646 


1,4414 




2398 


W25650 


J 30406 




2399 


t 25652 


1«J4414 




2400 


e-25654 


105525 




240! 


k 25656 


G047 37 


026750 


2402 


J256b2 


'400016 




2403 


025664 


920504 




24144 


t/25666 


i'01401 




2405 


»j25670 


104006 




24M6 


B25672 


104401 




2407 


025674 


104400 




2408 








24»9 








2410 








2411 








2412 








2413 








2414 








2415 








2416 








2417 








2418 








241 9 


t25676 


JM2737 


000017 


24 20 


1-25704 


ici 2>37 




2421 


*25712 


S12737 


025736 


2422 








2423 


4-25720 


104412 




2424 


025722 


332737 


100000 


2425 


fc25730 


001057 




2476 


625732 


304737 


027012 


2427 


025736 






2428 


C25736 


004737 


026656 


2429 


325742 


104414 




2430 


025741 


1 £0400 




2431 


B25746 


104414 




2432 


8-25750 


116377 




2433 


625752 


B04737 


026750 


2434 


025756 


000002 




24 35 


t-25760 


£20504 




2436 


025762 


£01401 




2437 


B25764 


104006 




2438 


B25766 


104401 




2439 


«2S770 


B12737 


025776 


2440 


t,25776 






2441 


S25776 


004737 


026656 


2442 


026002 


104414 




2443 


f.26004 


100403 




2444 


C26006 


104414 





2$: 

3S! 



10 




; INDEX 




CMP 


R5,R4 


JARE NEW PC CONTENTS CORRECT? 


BEQ 


4S 


; BR IF YES 




HLT 


6 


; ERROR, CROM PC IS WRONG 




SCCP1 




;LOOP TO 3» IF SW09=1 




HOV 


#5$. LOCK 


;NEW SC0P1 




JSP 


PCCLRALL 


; CLEAR ALL CONDITIONS 




ROMCLK 




; NEXT WORD IS INSTRUCTION 


, komClk PC15304 


100406 




f START AT ROM PC»6 




ROMCLK 




;NEXT WORD IS INSTRUCTION 


, KOMCLK PC=5304 


104125J<400*3> 


•JUMP TO KQM PC OF 525 




JSR 


PCROfDAT 


;R5*&XPECTED ROM DATA,R4= 


ACTUAL ROB DATA 


16 




; INDEX 




CMP 


R5»R4 


; ARE NEW ROM PC CONTENTS 


CORRECT? 


BEQ 


6« 


;BR IF IES 




HLT 


6 


; ERROR, CROM PC IS WRONG 




SC0P1 




•LOOP TO 5$ IF Sw59»l 




SCOPE 




• SCOPE THIS TEST 





;*•*•**•••****•»*•»***•••••• TEST 17 ****»*#**»»****#»♦»#»«•**«» 

;*CROM TEST OF JUMPCI) ON BR0 SET MICRO-PROCESSOR INSTRUCTION. 

;*CLEAR THE 6R0BIT, PERFORM THE JUMP INSTRUCTION, 

;»VERIFY THAI THE JUMP DID NOT OCCUR BY READING 

;»THE CONTENTS OF THE NEw ROM PC (IT SHOULD INCREMENT BY ONE), 

; I *•••*•••*••••*•*••*••••»•••*••••*•*****»•*•••••*»**•**••••#••• 



; TEST 


17 








MOV 


♦17,TSTN0 








MOV 


#TST20,NEXT 








HOV 


»1$,L0CK 












;R1 CONTAINS BASE DMCll ADDRESS 






MSTCLR 




; MASTER CLEAR DMC11 * " 






BIT 


#BIT15,STAT1 


;IS IT CRAM? 






BNE 


6»+2 


jSKIP TEST IF YES 






JSR 


PC,MAPCK 


;CHECK FOR HI OR LO 






JSR 


PCCLRALL 


;CLEAR ALL CONDITIONS 






POMCLK 




;NEXT WORD IS INSTRUCTION, ROmClK 


PC 


=5304 


100400 




; START AT ROM PC=0 






ROMCLK 




;NEX1 WORD IS INSTRUCTION, KOMCLK 


PC 


■5304 


1143771<400*4> 


:JUMp TO ROM PC OF 1777 






JSR 


PC, ROMDAT 


;R5«EXPECtE0 ROM DATA, R4«ACTUAL ROM 


DATA 


2 




; INDEX 






CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 






BEQ 


21 ' 


;BR IF YES 






HLT 


6 >- 


; ERROR, CROM PC IS WRONG 






SC0P1 




;LOOP TO i$ IF SW09=1 






MOV 


131, LOCK 


;NEW SCOPl 






JSR 


PCCLRALL 


{CLEAR ALL CONDITIONS 






ROMCLK 




; NEXT WORD IS INSTRUCTION, KOMCLK 


PC 


=5304 


100403 




; START AT ROM PC»3 






ROMCLK 




;NEXT WORU IS INSTRUCTION, KOMCLK 


PC 


=5304 
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2445 


B26?110 


1 42000 








100000!<400«4> lJUMP 


TO ROM PC OF 


2446 


026012 


004737 


026750 






JSR 


PC, POMDAT 


;R5»EXPECTE0 ROM DATA, R4=ACTUAL ROM DATA 


2447 


026016 


000010 








10 




; INDEX 


2448 


026020 


023504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


2449 


fc26022 


001401 








BEQ 


4» 


; BR IF YES 


2450 


026024 


104006 








HLT 


6 


: ERROR, CROM PC IS WRONG 


245i 


526026 


i V4401 






4$: 


SCOPl 




;LOOP TO 3$ IF SW09=1 


2452 


B26t»30 


012737 


026036 


001220 




HOV 


15$, LOCK 


;NEW SCOPl 


2453 


k>26036 








5$: 






2454 


026036 


004737 


£26656 






JSR 


PCCLRALL 


; CLEAR ALL CONDITIONS 


2455 


026042 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 


2456 


026044 


1 00406 








100406 




; START AT ROM PC=6 


2457 


026046 


104414 








ROMCLK 




; NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 


2458 


026050 


106125 








104125l<400*4> 


; JUMP TO KOM PC OF 525 


2459 


026052 


004737 


026750 






JSR 


PC, ROW) AT 


;R5*EXPECTEi) ROM DATA, R4=ACTUAL ROM DATA 


2460 


tt26>>56 


000016 








16 




; INDEX 


2461 


P26060 


£20504 








CMP 


R5,R4 


; ARE NEW ROM PC CONTENTS CORRECT? 


2462 


026062 


00140] 








BEQ 


6$ 


J BR IF YES 


2463 


026064 


104006 








HLT 


6 


; ERROR, CROM PC IS WRONG 


2464 


1)76066 


104401 






6$: 


SCOPl 




; LOOP TO 5$ IF SW59=1 


2465 


D26W70 


104400 








SCOPE 




; SCOPE THIS TEST 


2466 


















2467 


















2468 












;•••••**»*«••••»•••••••••••• TEST 20 »»***»******»**###»«♦*»«*#» 


2469 












;«CROH 


TEST OF JUMPCI) 


ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 


2470 












;*ClEAR 


THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 


2471 












; "VERIFY THAT THE JUMP 


did not Occur by reading 


2472 












J»THE CONTENTS OF THE 


NEW ROH PC (IT SHOULD INCREMENT BY ONE). 


2473 
2474 












;:***••••••**#••••*•••••••»*••••••••••••••••*••••*•«•**••••»#»** 


2475 












; TEST 


20 




2476 


















2477 


fc26072 


El 27 37 


yt'0023 


001226 


TST201 


MOV 


•20,TSINO 




2478 


0261*10 


H2737 


026266 


K0121 6 




MOV 


t TST21 ,NEXT 




2479 


C26106 


£12737 


026132 


001220 




MOV 


11$, LOCK 




2480 
















;R1 CONTAINS BASE DMCll ADDRESS 


2431 


U261 1 4 


1 04412 








MSTCLR 




,-KASTER CLEAR DMCll 














Bit 


*BIT15#BTAT1 


;IS it Cram? 


2483 


B26121 


"J1057 








BNE 


6S + 2 


;SMP TEST IF YES 


2484 


k'76120 


004737 


027012 






JSR 


PC,MAPCK 


;CHECK FOR Hi OR LO 


2485 


024,1 32 








1$: 








2486 


026132 


004/37 


026656 






JSR 


PCCLRALL 


;CLEAR ALL CONDITIONS 


2497 


'.26136 


104414 








ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK PCb5304 


2488 


026143 


100400 








100400 




; START AT ROM PC=0 


2489 


026142 


104414 








ROMCLK 




J NEXT «ORD IS INSTRUCTION, KOMCLK PC«5304 


2490 


if26144 


1 16777 








1143771<408*b> 


;JUMP TO KOM PC OF 1777 


24^1 


1.2b 14b 


1504737 


026750 






JSR 


PC, ROMDAT 


;R5»EXPECTEU ROM DATA, R4=ACT UAL KOM DATA 


2492 


026152 


000002 








2 




; INDEX 


2493 


026154 


020504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORHtCT? 


2494 


026156 


001 401 








BEQ 


2$ 


; BR IF YES 


2495 


'•26160 


1 »4fc06 








HLT 


6 


; ERROR, CKOM PC IS WRONG 


2496 


026162 


104401 






2$: 


SCOPl 




; LOOP TO 1$ IF SW09=1 


2497 


»2blb4 


012737 


0261 72 


001 220 




MOV 


13$, LOCK 


;NEW SCOPl 


2498 


• 26172 








3$: 








2499 


t.26172 


t 04737 


026656 






JSR 


PCCLRALL 


;CLEAP ALL CONDITIONS 


2500 


J261 76 


1 i-iil i 








ROMCLK 




; NEXT WORD iS INSTRUCTION, KOMCi,K f'-b' 4 
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PACE! 0258 



2501 


Is 2 6 200 


1 U0403 




2502 


026202 


1 0441 4 




2503 


1.26204 


1 02490 




2504 


02620O 


004737 


026750 


2505 


026212 


000010 




25P6 


1 26214 


020504 




2507 


126216 


B01 431 




2508 


P2622«t 


1 04006 




25*19 


F26222 


1 04401 




2510 


C26224 


312737 


026232 


251 1 


C26232 






2512 


C26232 


f'04737 


026656 


251 3 


P26236 


1 0441 4 




251 4 


026240 


1 00406 




2515 


«2b242 


1 04414 




2516 


626244 


106525 




251 1 


026246 


004737 


026750 


2518 


fc.26252 


000016 




2519 


1*26254 


020504 




2520 


026256 


£01 401 




2521 


1/26260 


1 04006 




2522 


026262 


104401 




2523 


C26264 


1 04400 




2524 








2525 








2526 








2527 








2528 








2529 








2530 








2531 








2532 








2533 








2534 








2535 


H26266 


IJ12737 


000021 


2536 


1=26274 


012737 


026462 


2537 


426302 


012737 


026326 


2538 








25 39 


026310 


1 0441 2 




2540 


k/26312 


032737 


100000 


2541 


S26320 


£01057 




2542 


!)26 322 


004737 


027012 


2543 


026326 






2544 


026 326 


004737 


026656 


2545 


1526332 


104414 




2546 


026334 


1 00400 




2547 


026336 


104414 




2548 


••26340 


117377 




2549 


226342 


304737 


1026750 


2550 


026346 


000002 




2551 


92b 353 


S20504 




2552 


026352 


C01401 




2553 


026354 


1 04006 




2554 


t.26356 


104401 




2555 


02636 J 


012737 


026366 


2556 


026366 







001226 
001216 
001220 



100403 
ROMCLK 

100000l<400*5> 

JSR PC.ROMC 
10 

CMP R5,K4 

BEQ 4$ 

HLT 6 
SC0P1 

MOV I5S.L0C 

JSR PCrCLRJI 

ROMCLK 

100406 

ROMCI.K 

1041251<400*5> 



; START AI RUM PC«3 
; NEXT WORD IS INSTRUCTION, 
{JUMP TO ROM PC Of 



KOMCLK PC*5304 



JSR 

16 

CMP 

BEQ 

HLT 

SC0P1 

SCOPE 



PC, ROMDAT 

R5,K4 

6* 

6 



;R5«EXPECTED ROM DATA, R4r ACTUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

> ERROR, CROM PC IS WRONG 
•LOOP TO 3$ IF SW09*1 
;NEW SCOPi 

;CLEAP ALL CONDITIONS 

; NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
; START AT ROM pc«6 

; NEXT WORD IS INSTRUCTION, KOMCLK PC-5304 
j JUMP TO ROM PC OF 525 

;R5=EXPtCT£D ROM ATA, R4= ACTUAL ROM DATA 
; INDEX 

; ARE NEW KOM PC CONTENTS CORRECT? 
;BR~IF YES 

; ERROR, CROM PC IS WRONG 
;LOOP TO 5$ IF SN59=1 
■SCOPE THIS TEST 



;•*•••*****•*****•**»*•»***• TEST 21 *»»»*»♦*»#**»»♦»**»»»♦»»**# 

(*CpOM TEST OF JUMP(I) ON BK4 SET MiCRO-PROCESSOP INSTRUCTION. 

; *CLEAR THE BP4 BIT, PERFORM THE JUMP INSTRUCTION, 

(•VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

;#THE CONTENTS OF THE NEW ROM PC (IT SHOULD INCREMENT BY ONE). 

; :»»»»»»»»»***»»»#♦•###**»#»#*»»#»»»#»»**##«»»»*•###♦»*#»»♦»»»»* 



2$: 

3$! 



; TEST 


21 






MOV 


#21,TSTN0 






MOV 


4TST22, NEXT 






MOV 


»1S,L0CK 










;R1 CONTAINS BASE DMCll ADDRESS 


MSTCLR 




; MASTER CLEAR DMCll 




BIT 


#BIT15«STAT1 


;IS IT CRAM? 




BNE 


68+2 


;SKIP TEST IF YES 




JSR 


PC,MAPCK 


;CHECK FOR HI OR LO 




JSR 


PCCLRALL 


;CLEAR ALL CONDITIONS 




ROMCLK 




; NEXT WORD IS INSTRUCTION, 


ROMCLK PCB5304 


100400 




; START AT ROM PC*0 




ROMCLK 




; NEXT WORD IS INSTRUCTION, 


ROMCLK PC=S304 


U4377!<400*6> 


;JUMP TO ROM PC OF 1777 




JSR 


PC, ROMDAT 


;R5«EXPECTE0 RON DATA, R4» ACTUAL ROM DATA 


2 




; INDEX 




CMP 


R5.R4 


; ARE NEW PC CONTENTS CORRECT? 


BEQ 


it 


}BR IF YES 




HLT 


6 


; ERROR, CROM PC IS WRONG 




SCOPI 




•LOOP TO 1$ IF SW09*1 




MOV 


13$, LOCK 


;NEW SCOPi 
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2557 


t-26366 


fc*>4/37 


026656 


2558 


026372 


1 04414 




2559 


026 374 


100403 




2560 


t'26376 


104414 




2561 


026400 


1 3000 




25b2 


C26402 


604737 


026750 


2563 


«?26406 


00001 A 




2564 


i.26113 


020504 




2565 


626412 


Kill 401 




2566 


C2b*l 4 


12 400b 




2567 


k»764l6 


104401 




25©8 


B26420 


312737 


026426 


2569 


026426 






2i> 1 




k/«4 / j J 


b 2oo5b 


2571 


1,26432 


104414 




2572 


076434 


10040b 




2573 


D26436 


104414 




2574 


026440 


1*7125 




2575 


4,26442 


0.J4 7 37 


026750 


2576 


026416 


D00016 




2577 


076 450 


1)70504 




2578 


fe26452 


001401 




2579 


B26154 


1 04006 




2580 


i»26456 


104401 




2561 


C26 160 


104430 




2592 








25*3 








2584 








2585 








2586 








2587 








2588 








2589 








2590 








2591 








2592 








2593 


626462 


U2/37 


000022 


2594 


t>2bl70 


012737 


003364 


2595 


T76476 


112737 


026522 


2596 








2597 


826504 


104412 




2598 


026506 


032737 


100i<[!0 


2599 


676514 


501057 




2600 


(•26516 


fcot/37 


027012 


2601 


H26522 






2602 


£26522 


0H4737 


C26656 


2bk)1 


026526 


1 04414 




2 6 i\ 


026530 


1 U0400 




2b«5 


026532 


10441 1 




2606 


£26534 


117777 




26«> ' 


U26536 


-*l!1737 


026750 


26fc3 


"26542 


t$000^2 




2fcl>9 


( 765 44 


i>20504 




2610 


126546 


i.;M 401 




2611 


I 26550 


1 «t4006 




2s I 2 


L'2655? 


1 1 4 4 J 
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4$: 
5S: 



001226 
001216 



PCCLRALL 



JSR 

ROMCLK 
100403 
ROMCLK 

1 00000 i<400*6> 
JSR 
10 
CMP 
BEQ 
HLT 
SCOPI 
MOV 



PC, ROMDAT 

R5,R4 
4$ 

6 

158, LOCK 



;CLEAR ALL C0NU1TI0NS 

; NEXT WORD IS INSTRUCTION, KOMCLK PC»5304 
; START AT ROM PC»3 

;NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
f JUMP TO ROM PC OF 



ROMCLK 
100406 
ROMCLK 

104125i<400»6> 



JSR 

16 

CMP 

BEQ 

HLT 

SCOPI 

SCOPE 



PC, ROMDAT 

R5,R4 
61 

6 



;R5*EXPECTE0 ROM DATA, R4=ACIUAL ROM DATA 
; INDEX 

; ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 

; ERROR, CROM PC IS WRONG 
•LOOP TO 34 IF SK09*1 
;NEW SCOPI 

iZ'utkP. ALL CGfiDITiONE 

; NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
; START AT RUM PC«6 

; NEXT WORD IS INSTRUCTION, KOMCLK PC*5304 
J JUMP TO ROM PC OF 525 

(R5=EXPECTED ROM DATA, R4= ACTUAL ROM DATA 
; INDEX 

; ARE NEW ROM PC CONTENTS CORRECT? 
;BR IF YES 

; ERROR, CROM PC IS WRONG 
jLOOP TO 5$ IF SWS9=1 
; SCOPE THIS TEST 



;**•*»»«*«**••••*»•••**•*••« TEST 22 ••••••»•*»•»•**•**•»•••«••• 

;«CROM TEST OF JUMPCI) ON BR7 SET MiCPO-PROCESSOR INSTRUCTION • 

t *CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

;*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

;«THE CONTENTS OF THE NEW ROM PC ( IT SHOULD INCREMENT BY ONE). 

; :*#*»*-■*#♦#*♦#*♦»♦•*»»»»##»#*♦»#*»»»»»»**#**»»»***»#»»*»«*»»**# 

; TEST 22 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BNE 
JSR 



#22,TSTN0 
I .EOP, NEXT 
#11, LOCK 



ttjITIS, STAT1 
6S+2 

PCMAPCK 



JSh PCCLRALL 

ROMCLK 

100400 

ROMCLK 

114377l<400»7> 
JSR PC, ROMDAT 



CMP 

BEO 
HLT 

SCOPI 



H5,R4 
2f 



;R1 CONTAINS BASE DMCll ADDRESS 
; MASTER CLEAR DMCll 
;1S IT CRAM? 
;SKIP TEST If YES 
;CHECK FOR HI OR LO 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, KOMClK PC«S304 
STAR! AT ROW PC*0 

NEXT WORD IS INSTRUCTION, KOMCLK PC*5304 
JUMP TO ROM PC OF 1777 

R5«EXPECIEU POM DATA, R4=AC1UAL RUM DATA 
INDEX 

ARE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR , CROM PC IS WRONG 
LOOP TO IS IP 5*09=1 
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2613 


B26554 


&12737 


1526562 


0H1220 






MOV 


#3$, LOCK 


;NEw SC0P1- 




2614 


026562 










3$: 










2615 


1/26562 


£047 37 


026656 








JSR 


PCrCLRALL 


;CLEAR ALL CONDITIONS 




2616 


1)26566 


1B4414 










ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK 


PC«5304 


2617 


&265T0 


1 00403 










100403 




; START AT ROM rC*3 




261B 


326572 


10441 4 










ROMCLK 




j NEXT WORD IS INSTRUCTION, KOMCLK 


PO5304 


2619 


02b574 


1 03400 










10000<U<400»7> sJUMp 


TO ROM PC Of" 




2b2iJ 


SJ26576 


it04737 


■.*,2675S 








JSH 


PC, RQBDAT 


;R5»EXPECT6U BOM DATA. R4* ACTUAL ROM DATA 


2621 


L26602 


000010 










10 




; INDEX 




2622 


026604 


k>2»504 










CMP 


R5» R4 


; ARE NEW PC CONTENTS CORRECT? 




2623 


»266£6 


S01401 










BEQ 


4S 


;BR IF IES " 




2624 


026610 


104006 










HLT 


6 


; ERROR, CROM PC IS MRONG 




2625 


026612 


134401 








4$ : 


SCOPl 




;LOOP TO it IF SS»09si 




2626 


fc>26614 


3127 37 


026622 


001220 






MOV 


i 5 $ , LOC ft 


;NEW SC0P1 




2627 


t/26622 










5S5 










2628 


426622 


034737 


026656 








JSR 


PCrCLRALL 


; CLEAR ALL CONDITIONS 




2629 


026626 


104414 










ROMCIiK 




;NEXT WORD IS INSTRUCTION, KOMCLK 


PC=5304 


2630 


P26630 


103406 










100406 




; START AT ROM PC»6 




2631 


f-26632 


134414 










ROMCLK 




;NEXT WORD IS INSTRUCTION, KOMCLK 


PC*5304 


2632 


'•26631 


107525 










104125 


!<400»7> 


;JUMP TO ROM PC OF 525 




2633 


C26636 


i>04737 


026750 








JSR 


PC, ROMDAT 


;RS*EXP£CTED ROM DATA, R4* ACTUAL ROM DATA 


2634 


t;?6642 


300016 










16 




; INDEX 




2635 


026644 


020504 










CMP 


R5,R4 


; ARE NEH ROM PC CONTENTS CORRECT? 




2636 


026646 


001401 










BEQ 


6« 


; BR IF XES 




2637 


026650 


104006 










HLT 


6 


; ERROR, CROM PC IS WRONG 




2636 


C26652 


104401 








6$: 


SC0P1 




;L0OP TO SS IF SW59=1 




2b39 


.J26654 


1 1*4400 










SCOPE 




•SCOPE THIS TEST 




2642 










00300 












2641 










00400 












2642 










00500 


; SUBROUTINES 








264 3 










00600 












2644 










00700 












26 45 


026656 








00800 


CLRALL: 










2646 










00900 




ITHIS SUBROUTINE CLEARS THE CiZ BITS AND THE BR 




2647 










01000 












2648 


t>26656 


lu4414 










ROMCLK 




! NEXT WORD IS INSTRUCTION, KOMCLK 


PC=5304 


2649 


1.26666 


S/09400 






01200 




000400 




;br_0 

jnext word is instruction, komclk 




2650 


k?26662 


104414 










ROMCLK 




PC'5304 


2651 


026664 


&b3220 






01400 




063220 




;SP(0)_BR 




2652 


t)266b6 


104414 










ROMCLK 




;NEXT WORD IS INSTRUCTION, KOMCLK 


PCS5304 


26S3 


026670 


060400 






01600 




060400 




;BR_SP(0)+BK 




2b54 


026672 


000207 






01700 




RTS 


PC 






2655 










01800 












2656 










01900 












2657 


026674 








02000 


SETBR0: 










2658 










02100 




;THIS SUBROUTINE SETS 


BR0 BIT 




2659 










02200 












26b0 


fc>26b74 


104414 










ROMCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK 


PC'5304 


2661 


(526675 








02400 




000401 




;BR_001 




2662 


626700 


000207 






02500 




RTS 


PC 






2663 










02600 












2664 










02700 












2bb5 


C26702 








02800 


SETBRl: 










2666 










02900 




(THIS SUBROUTINE SETS 


BR1 BIT 




2667 










03000 












2668 


026702 


134414 










ROMCLK 




;NEXT WORO IS INSTRUCTION, KOMCLK 


PC=S304 
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2o69 
267«) 
2671 
2672 
2673 
2*74 
26 (5 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
26S3 
2684 
2685 
2686 
2687 
2688 
26«9 
2690 
2691 
2b92 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2 /01 
2702 
2703 
2704 
7705 
2 7l7b 
2707 
27u8 
2 ; J9 
2/10 
2/11 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2 719 
272? 
2/21 
2722 
2723 
2724 



£20704 
»26706 



SJ26710 
026712 
£26714 



t-26716 
B2672* 
»26722 



fc!26724 
t'26726 
*,2673d 
926 7 32 
U26734 
926 7 36 
026743 



026742 
£26744 
026746 



fc2b750 
SJ26754 
e26760 
C76 764 
1,26770 
02677b 
1-27000 
C27fc^4 
B27!Un) 

k.27<>12 



?<)0402 
000207 



12)4414 
000420 
00Z207 



1B4414 
C«J060« 
000207 



104414 

0021777 
1 «4414 
£63220 
1 1)4414 
360400 
t'00207 



1B4414 
C00777 
J>30207 



017600 
.'62716 
fcl2?tl 
016005 
132737 
501402 
016305 
4,16104 
3«32«7 



000 1? 00 
<jk<00iJ2 
002000 
f 12322 
0H0PZ2 

C16322 
000006 



03200 
03300 
03400 
03500 
03600 
03700 
03800 

04000 
04100 
04200 
04300 
04400 
04500 
04600 

04800 
04900 
05000 
05100 
05200 
053f*0 
05400 

05600 

05600 

06000 
06/100 
06200 
0630k) 
06400 
06500 
06600 

06800 
06900 
071,00 
0710k) 
07200 
07300 
07400 
07500 
07600 
07700 

0790H 

H810H 
08230 
0831*0 
08400 
K = 500 
0860v1 
i,870w 



000402 
RTS PC 



;BR_002 



SETBR4: 



:THIS SUBROUTINE SETS BR4 BIT 



ROMCLK 
000420 
RTS 



;NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
;BR_020 



(THIS SUBROUTINE SETS BR7 BIT 



ROMCLK 
000600 
RTS 



; NEXT WORD XS INSTRUCTION, ROMCLK PC«5304 
;BR_200 



I THIS SUBROUTINE SETS THE C BIT 



ROMCLK 
000777 
ROMCLK 
063220 
ROMCLK 
060400 
RTS 



; NEXT WORD IS INSTRUCTION, KOMCLK PC=5304 
JBR-377 

;NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
;SP(B)_BR 

; NEXT WORD IS INSTRUCTION, KOMCLK PC»5304 
;BR_SP(0)+BR 



JTHIS SUBROUTINE SETS THE Z BIT 



ROMCLK 
000777 
RTS PC 



JNEXT WORD IS INSTRUCTION, KOMCLK PC«5304 
fBR_377 



JTHIS SUBROUTINE LOADS RS WITH EXPECTED ROM CONTENTS 
J AND LOADS R4 WITH ACTUAL ROM CONTENTS 



MOV 


ecsp),R0 


; INDEX FOK COMPARE 




APD 


#2, tSP) 


JADJUST STACK 




MOV 


tBIT10,tRl) 


;StT HOMO 




MOV 


LOMAPCR0),R5 


;PUT EXPECTED IN R5 


( LOSPEED) 


BIT 


iBITl,STAT3 


;LOw OR HIGH SPEED? 




HEO 


1$ 


;BR IF LOW SPEED 




MOV 


HIMAP(R0),R5 


;PUT EXPECTED IN H5 


CH1SPEEU) 


MOV 


6(R1),K4 


;PUT "FOUND" IN H4 




KTS 


PC 


; RETURN 




? THIS S 


18R0UTINE CHECKS 


1 HE STATUS TABLE AND 


LOADS 
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2725 










08800 




; THE ROHMAP POINTER TO POINT TO EITHER THE HIGH OK 


2726 










08900 




;LOW SPEED MICRO-CODE. 


2727 










09000 








2728 


3275512 


&12737 


012322 


012320 


09100 




NOV 


ILOHAP, ROMMAP ;LOAD POINItR TO LOW SPEEU 


2729 


927020 


f.32 737 


000002 


001372 


09200 




bIT 


#BITi, STATS ;CHECK STATUS TABLE 


2730 


W27P26 


1,01403 






09300 




BEQ 


1$ ;BR IF LOW SPEED 


2731 


S27030 


B12737 


016322 


012*20 


09400 




MOV 


tHIMAP, ROHMAP ; LOAD POINTER TO HIGH SPEED 


2732 


G27&36 


i)0U207 






09500 


is: 


P.TS 


PC ; RETURN 


2733 










09600 








2734 










00300 










027040 


C41777 


040522 


020115 


00400 


emu 


.ASCIZ 


<377>/CRAM DATA ERROR/ 




927061 


377 


051103 


046501 


00500 


EM2J 


. ASCIZ 


<377>/CRAM DUAL ADDRESSING ERROR/ 




027H5 


377 


051103 


046517 


00600 


EM3 i 


.ASCIZ 


<377>/CRQM DATA ERROR/ 




G27136 


045377 


046525 


020120 


00700 


EH4 * 


.ASCIZ 


<377>/JUMP ERROR/ 




927152 


0*7777 


052104 


042440 


00800 


EM5; 


.ASCIZ 


<377>/0DI ERROR IN IBUS* REG10/ 




1,27204 


to*4777 


050117 


046440 


00900 


E«7: 


.ASCIZ 


<37f>/IOP HAR TEST/ 




027222 


041 377 


020122 


044522 


01000 


EW10: 


.ASCIZ 


<377>/BR RIGHT SHIFT TEST/ 




027247 


377 


042522 


042503 


01100 


EHlli 


.ASCIZ 


<377>/RECEIVE DA1A ERROR/ 




027273 


377 


("151106 


042505 


01200 


E«12t 


.ASCIZ 


<377>/FREE RUNNING ERROR/ 




$27317 


377 


047503 


052116 


01300 
01400 


EH13S 


.ASCIZ 


<377>/CONTROL OUT ERROR/ 




H27342 


042777 


050130 


041505 


01500 


DHl : 


.ASCIZ 


<377>/EXPECTED FOUND ADDRESS/ 




027374 


042777 


050130 


041505 


01600 


0H2: 


•ASCIZ 


<377>/EXP£CTED FOUND/ 




027415 


377 


e51440 


046105 


01700 
01600 
01900 


DH3: 

.EVEN 


.ASCIZ 


<377>/ SEL4 SEL6/ 




027136 


2>»0003 






02000 


DTll 


3 






027440 


006 


004 




02100 




• BYTE 


6,4 




627442 


001264 






02200 




SAVR2 






027444 


006 


004 




02300 




.BYTE 


6,4 




to?7446 


Ml 21 if 






02400 




SAVR4 






1*27450 


004 


002 




02500 




.BYTE 


4,2 




<»2 7452 


£01260 






02600 




SAVR0 






627454 


000003 






02700 


DT2: 


3 






027456 


006 


004 




02800 




.BYTE 


6,4 




327460 


001272 






02900 




SAVR5 






927 462 


006 


004 




03000 




.BYTE 


6,4 




i»27464 


001270 






03100 




SAVR4 






027 466 


004 


002 




03200 




.BYTE 


4,2 - 




027470 


0ii)1264 






03300 




SAVR2 






e27472 


303033 






03400 


r>T3t 


3 






fc27474 


006 


004 




03500 




.BYTE 


6(4 




fc27 476 


£01272 






03600 




SAVR5 






027500 


006 


004 




03700 




.BYTE 


6,4 




027502 


B<J1270 






03800 




SAVR4 






£27504 


004 


002 




03900 




• BYTE 


4,2 




.-,27506 


901252 






04000 




TEMP3 






1427510 


i> .10002 






04100 


DT4: 


2 






027512 


003 


k>07 




04200 




.BYTE 


3,7 




027514 


001272 






04300 




SAVR5 






fr27516 


003 


002 




04400 




.BYTE 


3,2 




t>?7520 


001270 






04500 




SAVR4 






027522 


0d0002 






04600 


DT5I 


2 






027524 


006 


004 




04700 




.BYTE 


6,4 




•527526 


?01272 






04800 




SAVR5 






027533 


006 


002 




04900 




.BYTE 


6,2 
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3275 32 


S-01270 




05000 




5AVR4 


W27534 


B80003 




05100 


DT7 J 


3 


!J27536 


003 


010 


05200 




.BYTE 


4.27540 


t»»1272 




05300 




SAVR5 


C27542 


003 


004 


05400 




.BYTE 


027544 


t'01270 




05500 




SAVR4 


^27545 


004 


002 


05600 




.BYTE 


.'"27550 


001264 




05700 




SAVR2 


02755? 


£00003 




05800 


DT10: 


3 


i,'2755<* 


003 


007 


05900 




.BYTE 


(i?7556 


001272 




06000 




SAVR5 


027560 


003 


004 


06100 




.BKTE 


H27562 


001270 




06200 




SAVR4 


C27564 


006 


002 


06300 




.BYTE 


H27566 


£01252 




06400 




TEMP3 


O27570 


040002 




06500 


DTll: 


2 


»27572 


006 


004 


06600 




.BYTE 


027574 


001252 




06700 




TEHP3 


027576 


006 


002 


06800 




.BYTE 


»27603 


»91254 




06900 
07000 




TEMP4 


B27602 






07100 


.ERRTAB: 


027602 


000000 




07200 







927604 


000000 




07300 







027606 


000000 




07400 







O27610 


lT/7040 




07500 


EH1 




»27612 


027 342 




07600 


DHl 


t HLT 


027614 


227436 




07700 


DTI 




027616 


027061 




07800 


EC 2 




H27620 


027342 




07900 


DHl 


J HLT 


J27622 


B27436 




08000 


DTI 


027624 


077040 




08100 


EMI 




B27626 


027142 




08200 


DHl 


I HLT 


W27630 


C27454 




08300 


DT2 




027632 


027115 




08400 


EH3 




027631 


K27342 




08500 


DHl 


; HLT 


(•27636 


027472 




08600 


DT3 




077640 


D27136 




08700 


LM4 




B27642 


627374 




08800 


DH2 


; HLT 


1)27644 


327510 




08900 


DT4 




D27646 


i/27136 




09000 


EM 




027650 


027374 




U9100 


DH2 


1 HLT 


H.27652 


B2/522 




09200 


DT5 




f,27654 


027152 




09300 


EM5 




U27656 


027J74 




09400 


DH2 


J HLT 


027663 


J27510 




09500 


DT4 




k,27662 






09600 







U27664 


00000;) 




09700 







U27666 


000000 




09800 







327670 


0*7204 




09903 


EM7 




127672 


027342 




11*000 


DHl 


; HLT 


HJ27674 


i./75 34 




1011*0 


UT7 




<;27676 


,'27222 




1H20H 


t*10 




t/27 7."i 


„mi* 




li'3ii0 


DH2 


;4LT 


► 277,42 


1/751U 




10400 


0T4 




027704 


„V72i7 




U'500 


LM1 I 





6,4 
6,2 
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SUBROUTINES 



PAGE: 0264 



677706 


P27 3 42 


1 (4600 


DH1 


. HLT 


j 3 


i 2771k' 


iy?7b52 


10700 


DT10 




Kr27712 


i'27273 


10800 


EM12 






B2771 4 


£00000 








1 4 


i>27 716 


000000 


1 1000 









027721' 


f27273 


11100 


EM12 






♦127722 


1,27374 


11200 


DH2 


JHLT 


15 


SJ27724 


027522 


11300 


DT5 






027726 


6J27317 


11400 


EM13 






P27730 


027415 


11500 


DH3 


J HLT 


16 


1)27732 


B27570 


11600 
11700 
11800 


DT11 






S27734 


300001 


1.1900 
12400 


CORMAXJ 
.END 







DZDMG 


MAC Ml 33(1046) 


11-JUL- 


77 12111 PAGE 


59 






DZD«G.P11 22-APR-77 


09:29 




CROSS REFERENCE 


TABLE -- 


USER 


ADRCNTs 


004373 


879» 


915* 


924* 








AUDONE 


003024 


569 


608 


613 


659* 






AUSIRT 


k»02446 


568* 


663 










AUIO.S 


910512 


526 


1368* 










BINrfRD 


004714 


965* 


968* 


969 


1006* 






B1T0 = 


000001 


951 


1155 


1156 








B1T1 = 


0000kl2 


94* 


531 


1149 


1155 


1156 


1449 


BIT10 s 


002000 


85* 


1513 


1524 


1716 


1816 


2715 


BIT11 * 


t>04000 


84* 












BIT12 = 


SJ10000 


83* 


1464 


1543 








BI113 = 


420000 


82* 


1467 


1516 


1547 


1719 




B1TH * 


040000 


81* 


781 


1478 


1480 


1547 


1558 


BITlS = 


1 30000 


80* 


485 


572 


575 


596 


599 






2022 


2079 


2136 


2193 


2250 


2308 


BII2 = 


000004 


93* 


531 


712 


1156 






B1T3 » 


«00010 


92* 


1549 


1556 








B1T4 * 


i>0002v) 


91* 


1139 


1162 


1164 






B1T5 = 


000046 


90* 


1661 










BIT6 = 


P00100 


89* 


1144 


1145 


1551 






B1T7 = 


000200 


88* 


1145 


1265 


1661 






BITS s 


1/00100 


87* 


1523 


1538 


1540 


1553 


1555 


3IT9 = 


<S01>*00 


a&# 


1521 


1523 


1535 


1561 


1564 


BH 


007054 


1187* 


1492 










BRLVL 


bl2252 


1617 


lb27 


1635 


1647* 






BRW 


003733 


718 


804* 










BPX 


K33732 


719 


805* 










CHRCNT 


004712 


963* 


966 


970 


986* 


1004* 


1005 


CKSkH 


D07606 


512 


7 79 


811 


1026 


1212* 




CKSWR1 


007666 


1225* 


1237 










CKSWR2 


007700 


1228* 












CKSWR3 


M07704 


1230* 












CKSHM 


00771 t 


1231* 


1239 


1246 








CK5WP5 


010014 


1213 


1220 


1255* 








CLKX 


i»01242 


171* 












CLRALL 


026656 


1858 


1871 


1884 


2312 


2325 


2338 






2499 


2512 


2544 


2557 


2570 


2602 


CNEPR 


007277 


b26 


1187* 










CNI.HA 


001702 


196 


364* 


484 


486 


488 


1293 


CNVRI * 


104411 


233* 


623 


738 


740 


742 


744 


CONERR 


007223 


621 


1187* 










CONN 


1*0711 1 


1187* 


1469 










CONfAB 


002776 


630 


643* 










CONVRTs 


1 04410 


231* 


5 13 


629 


1076 


1391 




CORHAX 


t'27734 


2734* 












CRAM 


£06606 


11871 


1430 










CREAM 


L31320 


195* 


+ 83* 


1289* 


1290 


1292* 


1296 


CSR 


0065 li- 


11871 


13^5 










CSRMAP 


01051 4 


1 3701 












CYCLE 


O1W06J 


720 


701 


762 


1280* 






DATABP 


045216 


1019* 


1H52 


1074 


1077* 






DATACLa 


104415 


241 • 












DA1AHD 


005204 


1048* 


1070 


1073* 








DELAY s 


10441 3 


237» 












DEVAL'R 


l!01370 


877* 


912 


922* 








DtVTAH 


003010 


583 


64b» 










OH 1 


♦•27 3 42 


✓ 7 34* 













PAGE: 0265 



1451 

2366 



1561 

1620 



1519 
2424 



1564 

1622 



1712 
2482 



1804 
2540 



1854 
2598 



1911 



2370 
2615 



2383 
2628 



2396 
2645* 



2428 



DZDMG 
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CROSS REFERENCE 


TABLE 


DH2 


U27 37 * 


2734* 










DH3 


fc27415 


2734* 










DISPLA 


001200 


142* 


498* 


504* 


735* 




DISPRE 


B00174 


128t 


504 








DMACTV 


U01 306 


lR9t 


521 


676* 


677 


1280 


DMCM 


«*)7 3 20 


634 


1187* 








OHCKu0 


i'/»t500 


279» 










D«CPtfi 


'.i«1510 


284* 










DMCR02 


U0152O 


289* 










DMCHtJJ 


£01 530 


294(1 










DMCR04 


M01540 


299* 










DMCR05 


001550 


304 1 










DMCP06 


B01S60 


3091 










DMCK07 


081573 


3141 










DMCR10 


001600 


3191 










DMCR1 1 


£01610 


3241 










DMCR12 


001620 


3291 










DMCR1 3 


301630 


3341 










DMCP14 


001640 


339* 










DMCR1 5 


£.91630 


344* 










DMCR16 


1)01660 


3491 










DMCR17 


S01670 


3541 










DMCSR 


1501404 


262* 


568* 


602 


607* 


612* 






1356 


17 40 








DMCSRH 


t>i)1406 


263* 


1 1 44* 


U45* 


1149* 


1155* 


DMCH. 


801410 


264* 


1309* 


1310* 


1311 




OMhUM 


f>01313 


190* 


479 


751 


1374* 


1389* 


DWP04 


f>01 412 


2651 


1133* 


1 139 


1176 


1181 


DMP06 


601114 


266* 


1 150* 


1313* 


1314* 




DMRLVL 


001 376 


259* 


1316* 


1317* 


1318 




0MRVLC 


»01 374 


258* 


768 


1299* 


1380* 


1316 


DMS100 


001502 


280* 










DMS101 


031512 


265* 










DMS102 


001522 


290* 










DMS103 


U01532 


295* 










DM5101 


001542 


300* 










DMS105 


001 552 


305* 










DMS106 


001562 


310* 










DMS107 


C01572 


315* 










DMSU«» 


001602 


320* 










DMSJ1I 


001612 


325* 










DMSt 12 


001622 


330* 










DMSU3 


001632 


335* 










DHS114 


01H642 


340* 










DMS115 


001652 


345* 










DMSt 16 


tfjli>62 


350* 










DMS117 


001672 


355* 










DM5200 


£01504 


261* 










DMS201 


00151 4 


286* 










DMS202 


1901524 


291* 










DM5203 


•-41534 


296* 










DMS2W1 


i/01544 


301* 










0*52*5 


001554 


306* 










DH52rf6 


•J31564 


311* 










DMS207 


001574 


316* 










D«S2ID 


001604 


321* 











PAUE: 0266 

USER SIMBOLS 



1294 1376* 1577* 1583* 1584* 1588 1613 



647 


765 


802 


1094 


1117 


1163 


1298* 


1307 


U56» 


1162* 


1164* 


1307* 


1308* 


1309 






1568* 
1311* 


1569 
1312* 


1578 
1313 


1580 
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CROSS REFERENCE 


DMS211 


001614 


326* 






DMS.il 2 


901624 


331* 






DM521 3 


001634 


336* 






DMS21 4 


001644 


341* 






DMS21S 


401654 


346* 






DMS216 


U01664 


3511 






DMS217 


091674 


356* 






DMSJ00 


001506 


282* 






DM5301 


001516 


287* 






DMS302 


001526 


292* 






DMSJ413 


001536 


297* 






DMS3k»4 


001546 


302* 






DMS305 


0*1556 


107» 






DHS306 


fc01566 


312* 






DM5307 


001576 


317* 






DM5J10 


1.101606 


322* 






D«S31l 


001616 


327* 






DMS312 


001626 


332* 






DM531 3 


£01636 


337* 






DMS314 


001646 


342* 






DMS315 


001656 


347* 






DMS316 


0P1666 


352* 






DM531 7 


001676 


357* 






DMTLvL 


P01402 


261* 


1320* 


1321* 


DMTVEC 


150140a 


260* 


1318* 


1319* 1320 


DM. END 


001 700 


359* 


1372 




DM. MAP 


001500 




278* 


483 536 


DONE 


B03734 


784 


786* 


806* 1216* 


DTI 


127436 


2734* 






DTI 


C27552 


2734* 






DT11 


C2757C 


2734* 






DT2 


W27454 


27341 






DT3 


027472 


2734* 






DT4 


027510 


2734* 






DT5 


027522 


2734* 






DT7 


027534 


2734* 






EMI 


027P40 


2734* 






EM10 


£27222 


2734* 






EM11 


027247 


2734* 






EM 12 


U27273 


2734* 






EMI 3 


C27317 


2734* 






EM 2 


K27061 


2734* 






EM3 


t27115 


2734* 






EM4 


W271 36 


2734* 






EMS 


W27152 


2734* 






EM7 


027204 


2734* 






EPCTir'0 


I017t<4 


366* 






ERCT.U 


001710 


369* 






ERCT02 


»01714 


3721 






ERCT03 


U0172kJ 


3751 






EPCT'14 


t 01724 


378* 






EFC105 


4.01 730 


3PU 






EPCT«?6 


"HI 734 


3341 






EPCI/17 


U01740 


3"7« 






epcu<< 


P01 744 


310* 






enc n i 


«J?l75t' 


3931 







USER SYMBOLS 
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62 
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CROSS REFERENCE 


TABLE 


USER i 


ERCT1 2 


001754 


3961 












EPCT13 


001763 


399* 












ERCT14 


C31764 


4021 












efctis 


091770 


495 1 












ERCT16 


001774 


408* 












ERCT1 7 


092000 


411* 












ERR 


002700 


592 


618* 


622 








ERRCKT 


001232 


163; 


747 


774 


1687* 


1300* 




EPRFLG 


Ml 325 


202* 


481* 


733* 


795* 


1037* 


1059 


ERRMSG 


005172 


1047* 


1065 


1068* 








EBRPC 


002770 


624 


640* 










ERT&S0 


S05322 


1052 


1037* 










EXIT « 


900205 


96* 












EXITER 


005252 


1082 


1087* 










FLOAT 


002536 


585* 


591 










FY 


002566 


594* 


605 


609 


615 






HALTS 


C45222 


1033 


1079* 










HILIN 


004366 


876« 


903 ' 


921* 








HIMAP 


016322 


1670* 


2719 


273T 








ICOUNT 


ti01222 


159* 


793 


798* 








INBUF 


007502 


846 


882 


1203!* 








INCHAR 


010020 


1231 


1259* 










IN1FLG 


001324 


201* 


507 


527 


534* 






INSTERc 


104404 


223* 


897 










INSTR z 


104403 


221* 


1329 


1381 


1394 


1403 


1482 


INSTR2 


£104166 


853 


865* 










INTH 


C12266 


1414 


1431 


1441 


1454 


1470 


1655* 


KMC? 


007330 


637 


1187* 










LIMITS 


004314 


892 


903* 










LINE 


037016 


1187* 


1483 










LOoIIS 


Bt>4372 


.8?** 


907 


923* 


924 






LOCK 


001 220 


158* 


797* 


814 


816 


1056 


1801* 






1980* 


1993* 


2019* 


2037* 


2050* 


2076* 






2221» 


2247* 


2265* 


227,8* 


2305* 


2323* 






2479* 


2497* 


2510* 


2537* 


2555* 


2568* 


LOKELG 


001 326 


203* 












LOLIM 


204364 


875» 


905 


920* 








LOHaP 


01 2322 


1667* 


2716 


2728 








LPCnT 


001224 


160* 


792* 


793 


796* 






LSTERR 


(J01234 


164* 


490* 


732* 


1034 


1036* 


1124* 


HAPCK 


£27012 


1711 


1806 


1856 


1»13 


1967 


2024 






2484 


2542 


26SS 


2 * 23* 






MASKX 


S3I 244 


172* 












MASTER 


006142 


1058 


1187* 










MCRLF 


B05672 


831 


954 


1054 


1055 


1063 


ll?7t 


MCSPX 


6S6072 


737 


1187* 










HDATA 


fri>7544 


984 


994 


1204* 








MEMLIM 


001304 


188* 


700* 










HEPASS 


005733 


736 


1187* 










HERRPC 


646217 


1061 


1187* 










MERRX 


fc*6 1 1 7 


743 


1187* 










MEKR2 


R35760 


1187* 


1590 










HERP3 


f«)bt405 


673 


1187* 










MILK 


001 322 


196* 


484* 


745 


1288* 


1293* 


1297 


MLOCK 


C06043 


714 


1187* 










MNEW 


006144 


668 


1187* 











PAGES 026S 



1064* 1123* 



14*1 



2094* 
2336* 
2S£S* 



1869* 
2107* 
2363* 
2613* 



1882* 
2133* 
2381* 
2626* 



1908* 
2151* 
2394* 



1925* 
2164* 
242X* 



1937* 
2190* 
2439* 



1962* 
2208* 
2452* 



DZD^G 


HACK11 JIM1046) 


1 1-JUL 


-77 12:11 PAGE 
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CROSS REFERENCE 


M0DU 


006704 


1187* 


1453 






HPASSX 


I? 16 106 


741 


1187* 






MPFAIL 


005675 


1121 


1187* 






MOM 


205666 


861 


1187* 


1352 


1427 


MR 


405755 


723 


1187* 


1346 




MPESETs 


K 04000 


961 








HSTCLR* 


164112 


235* 


1126 


1738 


1739 






2307 


2365 


2423 


2481 


MTITLE 


t Cliff) A 


136* 


511 






MTSTN 


a»*>6l 30 


1059 


1187* 


1330 




MT5TPC 


O6031 


1187* 








MVECX 




739 


1187* 






NEXT 


00121b 


157* 


7"*9 


1092 


1686* 






2189* 


2246* 


2304* 


2362* 


NOACT 


K-07154 


523 


1187* 


1282 




N0DEV 


t<)2674 


577 


616* 






NUM 


G06450 


1187* 


1382 






OK 


P0264& 


603 


610* 


639 




ONE 


£-313k)2 


187* 








PACTuM 


fc?1702 


365* 








PACT01 


(■«fl706 


368* 








PACT02 


K.J1712 


371* 








PACT03 


Ei> 1716 


374* 








PACT91 


f 01722 


377* 








PACTU5 


#»1726 


380* 








PACTtf 6 


P01732 


383* 








PACT*>7 




386* 








PACT10 


ftfl742 


389* 








PACTU 


00174b 


392* 








PACT12 


*i>1752 


395* 








PACT13 


P01755 


3981 








PACT 1 4 


-11762 


401* 








PACT 1 5 


eai76C 


404* 








PACT 16 


SP1772 


407* 








PACT17 


00177& 


4101 








PARAP = 


1 94 405 


225* 


1331 


1383 


1396 




it*' * C J ^ 










PARBITs 


1 40000 


96* 








PARtKR 


fctf4313 


884 




888 


897* 


PASCNT 


» dl 23v* 


1621 


7 14* 


7 35 


746 


PLREORs 


C01537 


96* 








PfTAtt 


('35*30 


1122 


1 ) 2b! 






POPP.' = 


fcl 260C 


72* 


If 96 






POflSPs 


t»5 7 26 


701 








P0P2SP= 


■<22t2b 


74« 


801 






PHIO 


fcP6517 


1 187* 


1413 






PS = 


177776 


63* 


4 7b* 


711* 


1617* 


PUShRo* 


1 ltsi>«6 


711 


1083 






PUSHISi 


C«746 


69* 








PUSH2S* 


* 24Mb 


73* 








UV.fLG 


»<M 527 


204* 


4H2* 


753* 


790 


RtSt-tG 


£05 2 2*1 


1075 


1073* 






RESTAK 


««35J 


1 H>8 


1114* 






RESTPT 


PJ35J4 


749 


753 


761* 




RtSwS = 


1 »4107 


2291 


lm/8 






SETUP X 


: A 1 2 1 4 


156* 


492* 


720* 


724 



USER SXMBOLS 



PAUL: 0269 



1803 
2539 



1853 
2597 



1462 

1910 



1476 
1964 



904 

771 



906 
1304* 
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USER SYMBOLS 
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ROMCLK= 


i awt 


239» 


11 34 


1 137 


1174 


1179 






1872 


16 74 


1 885 


1887 


1915 






1985 


1996 


1998 


2027 


2029 






2110 


71 12 


2141 


2143 


2154 






2226 


2255 


2257 


2268 


2270 






2371 


2373 


2384 


2386 


2397 






2489 


2500 


2502 


2513 


2515 






2616 


2618 


2629 


2631 


2648 






2696 


2704 








ROMDAT 


b26750 


1863 


1876 


1889 


1919 


1931 






2101 


2114 


2145 


2158 


2171 






2343 


2375 


2388 


2401 


2433 






2607 


2620 


2633 


2709* 




ROMMAP 


P12320 


16651 


1715 


1808 


2728* 


2731* 


ROMNUM 


B22360 


1688 


1691» 


1693* 






ROM1 


622362 


1690 


16941 








RUN 


00 1 316 


193# 


485* 


1286* 


1287* 


1294 


SAVACT 


P01312 


1911 


671 


1588* 






5AVNUM 


001 314 


192* 


479* 


748* 


751* 


1581* 


SAVPC 


£(91276 


1851 


622* 


642 


929* 


1099 


SAVR0 


£01260 


178* 


938* 


943 


2734 




SAVP1 


601262 


179# 


628* 


937* 


944 




SAVR2 


*01264 


180* 


936* 


945 


2734 




5AVR3 


€01266 


181* 


935* 


946 






SAVP4 


801270 


182* 


934* 


947 


2734 




SAVRS 


C01272 


1831 


933* 


948 


2734 




SAVSP 


S.U274 


184# 










SAV05 a 


104406 


227t 


1038 








SCOPE a 


104400 


2151 


1692 


1724 


1765 


1837 






2349 


2407 


2465 


2523 


2581 


5C0P1 = 


1 04401 


217# 


1828 


1868 


1881 


1894 






2062 


2093 


2106 


2119 


2150 






2322 


2335 


2348 


2380 


2393 






2567 


2580 


2612 


2625 


2638 


Sfc TBR0 


►J26674 


2083 


2096 


2109 


2657* 




StlePl 


fe26702 


2140 


2153 


2166 


2665* 




SETBR4 


076710 


2197 


7210 


2223 


2673* 




SEIBF7 


t>?6716 


2254 


2267 


2280 


2681* 




SETC 


026721 


1969 


1982 


1995 


2689* 




SETZ 


126742 


2026 


2039 


2052 


2701* 




SKIP 


*02632 


573 


576 


597 


600 


606* 


SOFT5W 


?10052 


1229 


1268* 








SPACNT* 


£04 713 


964» 


988 


991* 


1005* 




SPEED 


••07340 


U87# 


1440 








STACK = 


till 200 


641 


477 


690 


1093 


1116 


STAT 


001243 


1701 










STAT 1 


C01 366 


2511 


1301* 


1712 


1804 


1854 






2366 


2424 


2482 


2540 


2598 


STAT2 


•01 370 


2521 


1302* 








STAT 3 


301372 


2531 


1303* 


2717 


2729 




STRTSW 


V01236 


1691 


513* 


516* 


517 


519 






1 601 










SV05 


N04402 


933# 










SWFLG 


J IS) ('16 


480* 


825 


1224* 


1251* 


1257* 


SWMES 


007205 


11871 


1227 








SWMES1 


C*>7215 


11871 


1230 
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TABLE ■ 


SWR 


P01 202 


1431 


497* 


499 


503* 


513 






1081 


1088 


1090 


1152 


1212 


SWRfcG 


to03l7b 


1291 


503 


1212 


1270 




SW0tf a 


&00<*0t 


451 


517 


1377 


1601 




SfctH = 


200002 


44* 


721 


1323 


1347 




S*02 = 


S>00004 


43* 










SW03 * 


W0010 


42* 


666 








Sti04 s 


4=00020 


41* 










SW0S - 


»00f 10 


40* 










SW06 a 


1^00100 


39» 


1152 








SW07 = 


080200 


38* 










SW0B s 


363400 


37* 


1088 








SW09 = 


B01000 


36* 


812 








SWlu s 


t>02:)00 


35* 


1090 








SWH » 


fc04«100 


34* 


788 








SW12 = 


ei0000 


33* 


827 


1027 






SW13 * 


020000 


32* 


1032 








SW1 4 = 


040000 


311 










SK15 * 


1 0»r>00 


30* 










TEMP 


f0l416 


271* 


971 


1118* 


1119* 


1160* 


TEMPI 


{301246 


173* 


537* 


1189 


1613* 


1614* 


TEMP2 


001 25t) 


174* 


538* 


1191 






TEMP3 


001252 


175* 


540* 


566* 


618 


627* 






1826* 


2734 








TEMP4 


B01254 


176* 


541* 


1195 


1399 


1402 


TEMP5 


001756 


177* 


542* 


1197 


1380* 


1393» 


TIMEf- * 


t lc - 4 « 1 6 


243* 










TKCSR 


7V1204 


148* 


848 


1214 


1259 


1655 


TKDHR 


W01206 


149* 


850 


856 


1217 


1219 


TLAST a 


026462 


1350 


2640* 








TPCSR 


001210 


150* 


832 


854 


1029 


1262 


TPDBR 


401212 


151* 


834* 


856* 


1031* 


1264* 


TRPOK 


W0473*! 


i»17* 










TSTNO 


C01226 


161* 


491* 


1102 


1130 


1334 






I960* 


2017* 


2074* 


2131* 


2188* 


TSll 


152 2 322 


1337 


1355 


1685* 






TST10 


£24132 


1961 


2017* 








1ST 11 


924326 


2018 


2074* 








TSI12 


624522 


2075 


2131* 








TSI13 


U24716 


2132 


2188* 








TST14 


M25U2 


2189 


2245* 








TST15 


1.25306 


2246 


2303* 








TST16 


B25502 


2304 


2361* 








TST17 


::25676 


2362 


2419* 








TST2 


k»22760 


1686 


17i)8» 








TS120 


t2607 2 


2420 


2477* 








IST21 


026266 


2478 


2b35« 








TST22 


fc26462 


2536 


2593* 


2640 






TST? 1 a 


•*•»»» U 


2594 










TST3 


C23W52 


1709 


1 735* 








TST4 


k *31b u 


1736 


1799* 








TST5 


t>23362 


1800 


1M9» 








IS16 


023556 


165S? 


190bl 








TST7 


U23736 


19P7 


I960* 








TTST 


093*12 


715* 


716* 


718* 


719* 


7B2* 







1748 








1859 




1917 


1927 


1929 


1939 


1941 


1970 


1972 


1983 


2040 


2042 


2053 


2055 


2084 


2066 


2097 


2099 


2156 


2167 


2169 


2198 


2200 


2211 


2213 


2224 


2281 


2283 


2313 


2315 


2326 


2328 


2339 


2341 


2399 


2429 


2431 


2442 


2444 


2455 


2457 


2487 


2545 


2547 


2558 


2560 


2571 


2573 


2603 


2605 


2650 


2652 


2660 


2668 


2676 


2684 


2692 


2694 


1943 


1974 


1987 


2000 


2031 


2044 


2057 


2088 


2202 


2215 


2228 


2259 


2272 


2285 


2317 


2330 


2446 


2459 


2491 


2504 


2517 


2549 


2562 


2575 


1895 


1949 


2006 


2063 


2120 


21 n 


2234 


2291 


2639 
















1924 


1936 


1948 


1979 


1992 


2005 


2036 


2049 


2163 


2176 


2207 




2233 


2264 


2277 


2290 


2406 


2438 


2451 


2464 


2496 


2509 


2522 


2554 


1911 


1965 


2022 


20/9 


2136 


2193 


2250 


2308 


529 


531 


666 


712 


721 


1323 


1347* 


1377 
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671 


676 


781 


786 


812 


827 


1027 


1032 


1250« 
















1165* 


1171* 


1183* 












1193 


1386 


1389 


1501* 


1821* 


1823* 


1824* 


l825f 


1408 


1411 


1487 


1490 


1 496 


1499 


2734 




1599 
















1261 


1657 














1658 
















1660* 
















1341 


1343 


1685* 


1708* 


1735* 


1799* 


1849* 


1906H 


2245* 


2303* 


2361* 


2419* 


2477* 


2535* 


2593* 
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IYPDAT 


005206 


1053 


1 07 1 


10741 






TYPE - 


104402 


219# 


511 


523 


5 35 


620 






737 


739 


741 


743 


831 






1061 


1063 


1067 


1072 


1121 






1426 


1429 


1436 


1439 


1 446 


TYPMSG 


l?05106 


1 05 1 


10541 










L 36526 


1187S 


. 










»n 201 


1 589 










«HICH P 


£" 1 2(902 


'''' 










WRDC NT 


004 7 1 *J 






1003* 






WRKO.F 
















£0 5000 




; 

■ff 


1032* 






Yr<so 


003546 


7 3d 


763* 








Y PD 


D03570 


Itt 


772* 








Yut »n 


£0622 4 


535 


1 187* 








V np 


003022 


593* 


6 1 1 * 


614 


6 45 


658* 


IP4 •« 




742 










XST A XQ 




544 


1 si t 

I ! 








XT5TN 


P05330 


1 060 


1 1 00* 








XVEC 


P03554 


740 


7b6 1 








ZERO 


001 300 


1 86* 










SCOU a 


#♦#**# U 


1 










SCRAP = 


1 77777 


1* 


1673* 


1676 


1681* 


1694* 






18381 


1841 


1845* 


1 896* 


1 899 






2067 


2070* 


21 21 * 


2124 


2127* 






22991 


2350* 


2353 


2357* 


2408 * 






2582* 


2585 


2589* 






SEftDAO 


003522 


123 




7551 


1079 




SN s 


f»00022 


1 * 


1673 


1681 


1683 


1688* 






iQal* 


iota 


1 


1797 


1 803 




















if. 


2070 






2079# 






2 1 y 2 


2193* 




2241 


2243 






2357 


2359 


2365 


2366* 


2408 






2482* 


1 <!h£ 


2531 


2533 


2539 




fp0002 4 


, oft}* 




~ fa "a* 




1711* 






i 


96«!» 
* * 




2022 * 


2075 






230 


23«2 


23661 


2420 


2424* 




0000 1 7 






2 15 


217* 


2l9# 






237* 




241 ff 


243* 


245* 




8 


1 08 1 


1 09 


112* 


1 19* 


124* 






272* 






280* 


281 # 






292* 


2»4* 


295* 




297 # 






309# 


310* 


31 1 * 


312* 


314* 






3251 


?^!# 


327 i 


329* 


330* 






341* 


342* 


344* 


345* 


346* 






3571 


515 


525 


657* 


675 






1378 


1422 


1542 


1546 


1593 


.BEGIN 


903152 


6901 










.CNVf-T 


C04472 


234 


9551 








.CONVR 


004466 


232 


954* 








•DAT AC 


c "45552 


242 


1159; 








.DELAY 


i>05436 


238 


1132* 








.EOP 


003364 


731* 


2594 










#27602 


1046 


2734* 








,HLT 


304750 


115 


1026* 
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TABLE 


, INSTE 


1604154 


224 


861* 








.INSTR 


004050 




840* 








. INSH 


904070 




864 








.MSG 


004072 




845* 








.MSTCL 


005466 


236 


11431 








.PARAW 


®04 174 












.PFAIL 


005 336 


113 


478 


1107* 


1115 




.HES05 


604434 


230 


943* 








.ROMCL 


005504 


240 


1148* 








.5AV05 


004374 


228 


929* 








.SCOPE 


003576 


216 


779* 








.SCOP1 


003736 


218 


811* 








.START 


002002 


132 


476* 


492 


1247 




.TIMER 


SJ05615 


244 


11 10t 








.TRPSR 


35047 16 


117 


1014* 








.TRPTA 


001330 


214* 


1019 








.TYPE 


003766 


220 


822* 









625 


633 


636 


668 


673 


714 


723 


736 


844 


861 


954 


994 


1054 


1055 


1058 


1059 


1227 


1230 


1282 


1326 


1346 


1352 


i390 


1412 


1453 


1461 


1468 


1475 


1590 


1690 






1697 


1/04* 


1725* 


1728 


1731* 


176 6 $ 


1 769 


1795* 








J'j'f 








?Sof* 


21781 


2181 


2184* 






2241 * 


2292* 


2295 


2411 


2415* 


2466* 


24 


24 3* 


2524* 


49 i 1 


2531* 


1694 


1704 


1706 


1711* 


1725 


1731 


1733 


1738 


1804* 


1836 


1845 


1847 


1853 


1854* 


1896 


1902 


1 958 


1 964 


1 965* 




2013 










2127 




2135 


2136* 


21 7 8 


2184 


2186 


224' 


2250* 


2292 


2299 




230? 


2308* 


2350 








2424* 


2466 




2475 


2481 


25*0# 


2582 


2589 




2597 








1736 


1739* 




18^4* 




1854* 


1 907 


„ 

• ** 


20791 


2132 


2136* 


2189 


2193* 


2246 


2250* 


230 


2478 ' 


2482* 


2536 


2540* 


2594 


2598* 






221* 


223* 


225* 


227* 


229* 


231* 


233* 


235* 


127* 


131* 


135* 


137* 


189* 


190# 


191* 


192* 


282* 


2d4* 


285* 


266* 


287* 


289* 


290t 


291* 


299* 


300* 


301* 


302* 


304* 


305* 


306* 


307* 


315* 


316* 


317* 


319* 


320* 


321* 


322* 


324* 


331* 


322* 


334* 


335* 


336* 


337* 


339* 


340* 


3471 


349* 


350* 


351* 


352* 


354* 


355* 


356* 


1110 


1120 


1168* 


1203* 


1205* 


1260 


1263 


1284 


1624 


1656 


1659 
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MACRO NAMES 
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DMEND 




725 






DMF ftu T 


1 ff 








HLT 


75 • 


1 75 4 


1764 


1827 




2061 


2092 




2118 




2347 


2379 




2405 




26 37 








S AUTO 




547 






SBRPSH 


1 1 


1725 










1 199 




























1 « 


: 








J . 








S f ' 1 N I 


1 « 








SGETPA 










$ H E A D E. 










S JUMP 


1 1 


18 38 


1896 


1 950 


SMAPHI 










$MOCK 










SMSG 




1187 






SPFAIL 


1 • 


1 103 






SQUEST 




1381 


1394 


1403 


$ P AHCL 










SRCLK 


- 


1134 


1137 


1174 




t 885 


1887 


1915 


1917 




2029 






2053 




2167 


7169 


2198 


2200 




23j5 


2326 




2339 




2455 


2457 


2487 


2489 




2605 


7616 


2618 


2629 




270 4 








$ ro u 


1 * 


16 7 3 






$ROMRD 


1 ( 


1766 






SSCoPE 




775 








1* 








$ SOF'TC 


1 1 


1207 






STRPDE 


1# 


215 


2t7 


219 












STSTN 


i# 


1683 


1706 


1733 




241 7 


2475 


2533 


2591 


S VArIA 


1 * 


134 






$Xz 


1» 


1673 


1681 


169* 




2007 


2013 


2064 


2070 




2415 


2466 


2473 


2524 


. ABS. 


H27734 


000 
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1867 


1880 


1893 


1923 


1935 


1947 


1978 


1991 


2004 


2035 


2048 


2149 


2162 


2175 


2206 


2219 


2232 


2263 


2276 


2289 


2321 


2334 


2437 


2450 


2463 


2495 


2508 


2521 


2553 


2566 


25/9 


2611 


2624 


2007 


2064 


2121 


2178 


2235 


2292 


2350 


2408 


2466 


2524 


2582 


1482 


1491 




















1179 


1 744 


1 7 46 


1748 


1755 


1758 


1814 


1859 




1872 


1874 


1927 


1929 


1939 


1941 


1970 


1972 


1983 


1985 


1996 


1998 


2027 


2055 


2084 


2086- 


2097 


2099 


2110 


2112 


2141 


2143 


2154 


2156 


2211 


2213 


2224 


2226 


2255 


2257 


2268 


2270 


2281 


2283 


2313 


2341 


2371 


2373 


2384 


2386 


2397 


2399 


2429 


2431 


2442 


2444 


2500 


2502 


2513 


2515 


2545 


2547 


2558 


2560 


2571 


2573 


2603 


2631 


2648 


2650 


2652 


266% 


2668 


2676 


2684 


2692 


2694 


2696 


221 


223 


225 


227 


229 


231 


233 


235 


237 


239 


241 


1797 


1847 


1904 


1958 


2015 


2072 


2129 


2186 


2243 


2301 


2359 


1704 


1725 


1731 


1766 


1795 


1838 


1845 


1896 


1902 


1950 


1956 


2121 


2127 


2178 


2184 


2235 


224l 


2292 


2299 


2350 


2357 


2408 


2531 


2582 


2589 



















